History

help: don't print signatures in pretty mode to avoid weird wrapping

Sigrid Solveig Haflínudóttir committed 4 months ago

Commit f7066bc1 parent d88054d2 files · +16 −13Browse files

Unified · Split

2 files
  1. boot/sl.boot +8 −7
  2. src/system.sl +8 −6
boot/sl.boot+8−7
@@ -312,10 +312,10 @@ help help-print-header group #fn(sym) ":doc-" doc getprop *doc* *formals-list* g · 311 unmodified lines
312#fn(str-find) "*" #fn(str-sub) 1- #fn(length) #fn("n1200512185A5286;390422855186;3S04F;J804E86l2;3C0492;J<04878693Ml2:" #(#fn(str)312#fn(str-find) "*" #fn(str-sub) 1- #fn(length) #fn("n1200512185A5286;390422855186;3S04F;J804E86l2;3C0492;J<04878693Ml2:" #(#fn(str)
313#fn(str-find) #fn(length)) 10) #fn(nconc) filter #fn(environment) table-keys *syntax-environment*313#fn(str-find) #fn(length)) 10) #fn(nconc) filter #fn(environment) table-keys *syntax-environment*
314#fn(for-each) #fn("n17005147160:" #(princ newline) 6) sort <) environment-find-matching 18)314#fn(for-each) #fn("n17005147160:" #(princ newline) 6) sort <) environment-find-matching 18)
315#fn("n370qw042187>1221820>32388>1{88504:" #(*print-syntax-sugar* #fn("n0Aw0:" #(*print-syntax-sugar*) 4)315#fn("n37071qw04qw14228788>2231820>32489>1{89504:" #(*print-syntax-sugar* *print-pretty* #fn("n0Aw04Fw1:" #(*print-syntax-sugar*
316#fn("n0A3?02021F92>2A62:7250473F514739261:" #(#fn(for-each)316*print-pretty*) 4) #fn("n0A3?02021F92>2A62:7250473F514739261:" #(#fn(for-each)
317#fn("n17050471A51471F0P61:" #(newline princ) 7) newline princ) 7)317#fn("n17050471A51471F0P61:" #(newline
318#fn("n1A50420061:" #(#fn(raise)) 6)) print-sig 8)318princ) 7) newline princ) 7) #fn("n1A50420061:" #(#fn(raise)) 6)) print-sig 9)
319#fn("n1200E210225263:" #(#fn(str-sub) #fn(str-find) "\n") first-line 10)319#fn("n1200E210225263:" #(#fn(str-sub) #fn(str-find) "\n") first-line 10)
320#fn("n10B;3B040<20Q;38040T21Q:" #(doc group) doc-group? 6)320#fn("n10B;3B040<20Q;38040T21Q:" #(doc group) doc-group? 6)
321#fn("n10H;3@0470A71022q5362:" #(member getprop *doc-extra*) doc-extra-term? 10)321#fn("n10H;3@0470A71022q5362:" #(member getprop *doc-extra*) doc-extra-term? 10)
@@ -563,15 +563,16 @@ caadr $begin nconc #fn(map)) 8) remove-duplicates) get-defined-vars 8) · 241 unmodified lines
563get-syntax #fn("n120710q63:" #(#fn(get) *syntax-environment*) get-syntax 8) getprop563get-syntax #fn("n120710q63:" #(#fn(get) *syntax-environment*) get-syntax 8) getprop
564#fn("|20003000W2000;J60q?2420711q53873J088;3<04208808253;J50482:883:02088062:22231e261:" #(#fn(get)564#fn("|20003000W2000;J60q?2420711q53873J088;3<04208808253;J50482:883:02088062:22231e261:" #(#fn(get)
565*properties* #fn(raise) key-error) getprop 10)565*properties* #fn(raise) key-error) getprop 10)
566help-print-header #fn("O200020004000W2000J60q?24W3000J7021?34Ib88822880>2_413C0232483088>3152@c07583514823F0757605151488<2751@>078051488<0514795047960:" #(#(:kind566help-print-header #fn("O200020004000W2000J60q?24W3000J7021?34Ib88822880>2_413[073qw342489>125830881>4268:>1{8:504^1^1@c07783514823F0777805151488<2951@>07:051488<05147;5047;60:" #(#(:kind
567:lpad) "" #fn("n1A70_471220RJ:023051@W00R3C00Z3>02324F5151@A07505137026@40272863:" #(void princ567:lpad) "" #fn("n1A70_471220RJ:023051@W00R3C00Z3>02324F5151@A07505137026@40272863:" #(void princ
568" ;; [" #fn(type-of)568" ;; [" #fn(type-of)
569#fn(top-level-value)569#fn(top-level-value)
570get-syntax570get-syntax
571"macro" "any"571"macro" "any"
572"]") print-type 9)572"]") print-type 9)
573#fn(for-each) #fn("n170A51471F0P51492<F5147260:" #(princ print newline) 7) princ caddr "doc group"573*print-pretty* #fn("n0Aw0:" #(*print-pretty*) 4) #fn("n02021AF92>39362:" #(#fn(for-each)
574print newline) help-print-header 8)574#fn("n170A51471F0P51492<F5147260:" #(princ
575print newline) 7)) 7) #fn("n1A50420061:" #(#fn(raise)) 6) princ caddr "doc group" print newline) help-print-header 9)
575i_auto11# #:i_auto11# i_auto23# #:i_auto23# identity576i_auto11# #:i_auto11# i_auto23# #:i_auto23# identity
576#fn("n10:" #() identity 4) in-env? #fn("n21B;3F042001<52;J:047101=62:" #(#fn(assq)577#fn("n10:" #() identity 4) in-env? #fn("n21B;3F042001<52;J:047101=62:" #(#fn(assq)
577in-env?) in-env? 7)578in-env?) in-env? 7)
src/system.sl+8−6
@@ -172,11 +172,12 @@ · 171 unmodified lines
172 (else "any")]172 (else "any")]
173 "]"))173 "]"))
174 (if sigs174 (if sigs
175 (for-each (λ (sig) (princ lpad)175 (with-bindings ((*print-pretty* NIL))
176 (print (cons term sig))176 (for-each (λ (sig) (princ lpad)
177 (print-type term)177 (print (cons term sig))
178 (newline))178 (print-type term)
179 sigs)179 (newline))
180 sigs))
180 (princ lpad)181 (princ lpad)
181 (if kind182 (if kind
182 (begin (princ (caddr term))183 (begin (princ (caddr term))
@@ -248,7 +249,8 @@ · 65 unmodified lines
248 (for-each (λ (term) (princ term) (newline))249 (for-each (λ (term) (princ term) (newline))
249 (sort matching <)))))250 (sort matching <)))))
250 (def (print-sig term sigs lpad)251 (def (print-sig term sigs lpad)
251 (with-bindings ((*print-syntax-sugar* NIL))252 (with-bindings ((*print-syntax-sugar* NIL)
253 (*print-pretty* NIL))
252 (if sigs254 (if sigs
253 (for-each (λ (sig) (newline)255 (for-each (λ (sig) (newline)
254 (princ lpad)256 (princ lpad)

Keyboard shortcuts

General

Show keyboard shortcuts
?
Focus the current search
/

Issues and pull requests

Open filters
f

Issues, pull requests and Inbox

Select next item
j↓
Select previous item
k↑
Open selected item
Enter
Dismiss filters or clear selection
Esc

Repository code

Go to file
t