help: support calls with :print-header NIL

Sigrid Solveig Haflínudóttir committed 3 months ago

Commit 30af42e1 parent 0e293842 files · +2 −2Browse files

Unified · Split

2 files

boot/sl.boot +1 −1
src/system.sl +1 −1

boot/sl.boot+1−1

@@ -634,7 +634,7 @@ let #:i_auto14# · 633 unmodified lines
634	< reverse) 8) when #fn("r181370D9@80702151422802381PD9e4:" #(arg-error "when without a body" if	634	< reverse) 8) when #fn("r181370D9@80702151422802381PD9e4:" #(arg-error "when without a body" if
635	begin) 8) quasiquote #fn("A17080E62:" #(bq-process) 7) unquote #fn("A18042047142047242380P:" #(:doc-see	635	begin) 8) quasiquote #fn("A17080E62:" #(bq-process) 7) unquote #fn("A18042047142047242380P:" #(:doc-see
636	unquote-splicing unquote-nsplicing unquote) 6) assert-fail #fn("r1DI20?6421222380D9e32425e1813F0268625e22781<e2e3@40DAe3e3e2:" #(#fn("A1708051;3Q047080<51;3E042172805151;360480<8538080=@408086;3G0486B;3?0486<R;360486<:" #(list?	636	unquote-splicing unquote-nsplicing unquote) 6) assert-fail #fn("r1DI20?6421222380D9e32425e1813F0268625e22781<e2e3@40DAe3e3e2:" #(#fn("A1708051;3Q047080<51;3E042172805151;360480<8538080=@408086;3G0486B;3?0486<R;360486<:" #(list?
637	#fn(io?) caar) type 7) assert trycatch begin λ e eq? quote) 14) begin #fn("r02080P:" #($begin) 6) help #fn("O00001000.///r2W0000;J70D9?04W1000J7071?148737080@40228823C8082<@40888889C8082<@40888:;3>0424258:5289P8:3=0268:89e3@4089778<28D953778<29D95389R;3A0489Z;J9047:89512;7<51DIDIDIDIDIDIDIDIbAbCbDbE2=7<2>5248A2?_42@89>1?B48C2A_48D2B_48E2C_42D?F42E8;>1?G42F?H4892GCM02H2I8E>18H2J7K28528F5252@\xac18=;J5048>3T1778<2LD9537M2N8I527M2O8I527M2P8I527M2Q8I52818<8>2R8:5448=3M07S8A<7T2U8=8J53515147V50@40D948M3T07V5047S2W5147V5042H2X8D8A>28M52@40D948K3W07V5047S2Y5147V5042H2Z8C>18K5247V50@40D948L3S07V5047S2[5147V5042H2\\8L5247V50@40D948:3c07V5047S2]5147V5042H2^8C>18H2J7K28528G525247V50@40D94DI^1^1^1^1^1@~08?J>08B50370D9@m07S2_8:3=02`8:2a52@402b895348:JF089R3@08?J;07S2c51@40D947V5042=7<8@5242d7<5147e60:" #(#(:print-header)	637	#fn(io?) caar) type 7) assert trycatch begin λ e eq? quote) 14) begin #fn("r02080P:" #($begin) 6) help #fn("O00001000.///r2W0000;J70D9?04W1000J7071?148737080@40228823C8082<@40888889C8082<@40888:;3>0424258:5289P8:3=0268:89e3@4089778<28D953778<29D95389R;3A0489Z;J9047:89512;7<51DIDIDIDIDIDIDIDIbAbCbDbE2=7<2>5248A2?_42@89>1?B48C2A_48D2B_48E2C_42D?F42E8;>1?G42F?H4892GCM02H2I8E>18H2J7K28528F5252@\xb318=;J5048>3[1778<2LD9537M2N8I527M2O8I527M2P8I527M2Q8I5281;3?04818<8>2R8:5448=3M07S8A<7T2U8=8J53515147V50@40D948M3T07V5047S2W5147V5042H2X8D8A>28M52@40D948K3W07V5047S2Y5147V5042H2Z8C>18K5247V50@40D948L3S07V5047S2[5147V5042H2\\8L5247V50@40D948:3c07V5047S2]5147V5042H2^8C>18H2J7K28528G525247V50@40D94DI^1^1^1^1^1@~08?J>08B50370D9@m07S2_8:3=02`8:2a52@402b895348:JF089R3@08?J;07S2c51@40D947V5042=7<8@5242d7<5147e60:" #(#(:print-header)
638	help-print-header help group #fn(sym) ":doc-" doc getprop doc formals-list get-syntax #fn(io-buffer-mode)	638	help-print-header help group #fn(sym) ":doc-" doc getprop doc formals-list get-syntax #fn(io-buffer-mode)
639	io-out #fn(io-buffer-mode!) :block #fn("A1707122523;073248062:80:" #(member +os-name+ ("dos" "windows"	639	io-out #fn(io-buffer-mode!) :block #fn("A1707122523;073248062:80:" #(member +os-name+ ("dos" "windows"
640	"macos" "unknown") str-map #fn("A1808520c35021:8522c35023:8524c35025:8526c35027:8528c35029:852:c3502;:852<c3502=:852>c3502?:80:" #(#\↳	640	"macos" "unknown") str-map #fn("A1808520c35021:8522c35023:8524c35025:8526c35027:8528c35029:852:c3502;:852<c3502=:852>c3502?:80:" #(#\↳

src/system.sl+1−1

@@ -340,7 +340,7 @@ · 339 unmodified lines
340	[see (filter (λ (v) (eq? (car v) :doc-see)) extra)]	340	[see (filter (λ (v) (eq? (car v) :doc-see)) extra)]
341	[grp (filter (λ (v) (eq? (car v) :doc-group)) extra)]	341	[grp (filter (λ (v) (eq? (car v) :doc-group)) extra)]
342	[exa (filter (λ (v) (eq? (car v) :doc-example)) extra)]}	342	[exa (filter (λ (v) (eq? (car v) :doc-example)) extra)]}
343	(print-header docterm formals-list :kind kind)	343	(and print-header (print-header docterm formals-list :kind kind))
344	(when doc	344	(when doc
345	(princ (deunicode (foldl (λ (fmt doc) ((cdr fmt) doc)) doc fmt)))	345	(princ (deunicode (foldl (λ (fmt doc) ((cdr fmt) doc)) doc fmt)))
346	(newline))	346	(newline))