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	634	< reverse) 8) when #fn("r181370D9@80702151422802381PD9e4:" #(arg-error "when without a body" if
635	635	begin) 8) quasiquote #fn("A17080E62:" #(bq-process) 7) unquote #fn("A18042047142047242380P:" #(:doc-see
636	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	638	help-print-header help group #fn(sym) ":doc-" doc getprop doc formals-list get-syntax #fn(io-buffer-mode)
639	639	io-out #fn(io-buffer-mode!) :block #fn("A1707122523;073248062:80:" #(member +os-name+ ("dos" "windows"
640	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	340	[see (filter (λ (v) (eq? (car v) :doc-see)) extra)]
341	341	[grp (filter (λ (v) (eq? (car v) :doc-group)) extra)]
342	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	344	(when doc
345	345	(princ (deunicode (foldl (λ (fmt doc) ((cdr fmt) doc)) doc fmt)))
346	346	(newline))