help: fix signatures - always print readably, preserving default values such as runes

Sigrid Solveig Haflínudóttir committed 3 months ago

Commit f045cc71 parent 05f773a2 files · +19 −7Browse files

Unified · Split

2 files

boot/sl.boot +10 −4
src/system.sl +9 −3

 get-syntax #fn("A1207180D963:" #(#fn(get) *syntax-environment*) 8) getprop
 #fn("w20003000W2000;J70D9?24207181D953873K088;3=042088808253;J50482:883F0228880523;020888062:232481e261:" #(#fn(get)
 *properties* #fn(has?) #fn(raise) key-error) 10)
-help-print-header #fn("O200020004000W2000J70D9?24W3000J7021?34DIb888228880>2_4813E02324808388>38152@f07583514823G07576805151488<2751@@0788051488<80514795047960:" #(#(:kind
+help-print-header #fn("O200020004000W2000J70D9?24W3000J7021?34DIDIb8b988228880>2_48923_4813G0242589808388>48152@f07683514823G07677805151488<2851@@0798051488<805147:5047:60:" #(#(:kind
 :lpad) "" #fn("A19070_4712280RJ;0238051@[080R3E080Z3?02324915151@B075805137026@40272863:" #(void
 princ " ;; [" #fn(type-of) #fn(top-level-value) get-syntax "macro" "any" "]") print-type 9)
-#fn(for-each) #fn("A1209080P5171D9I142286>1239080>22487>1q87504^1^1759151475855148586d370D9@:075268652492<905147760:" #(#fn(str)
+#fn("A1205071DAI142286>1238085>22487>1q87504^1^142585512685514:" #(#fn(buffer) *print-readably*
+#fn("A090I0:" #(*print-readably*) 4)
+#fn("A020909162:" #(#fn(write)) 7)
+#fn("A190504208061:" #(#fn(raise)) 6)
+#fn(io->str)
+#fn(io-close)) term->str 9)
+#fn(for-each) #fn("A190<9180P51205071D9I142287>123909180>32488>1q88504^1^1759251475855148587d370D9@:075268752493<915147760:" #(#fn(buffer)
 *print-syntax-sugar* #fn("A090I0:" #(*print-syntax-sugar*) 4)
-#fn("A0209091P61:" #(#fn(str)) 7) #fn("A190504208061:" #(#fn(raise)) 6) princ " | " newline) 9)
+#fn("A090<9192P61:" 7) #fn("A190504208061:" #(#fn(raise)) 6) princ " | " newline) 10) princ caddr
-princ caddr "doc group" print newline) 8)
+"doc group" print newline) 9)
 i_auto11# #:i_auto11# i_auto23# #:i_auto23# identity
 #fn("A180:" 4) in-env? #fn("A281B;3J04208081<52;J<04718081=62:" #(#fn(assq) in-env?) 7)
 inlineable? #fn("A180<85B;3u0485<20Q;3j047185T51;3^04727385T52;3P047485T2552S;3A047685T2780=5162:" #(λ

src/system.sl+9−3

              ((get-syntax e) "macro")
              (else "any")]
            "]"))
+  (def (term->str term)
+    (let {[b (buffer)]}
+      (with-bindings ((*print-readably* T))
+        (write term b))
+      (prog1 (io->str b) (io-close b))))
   (if sigs
       (for-each (λ (sig)
-                  (let {[sug (str (cons term sig))]
+                  (let* {[sug (term->str (cons term sig))]
-                        [sig (with-bindings ((*print-syntax-sugar* NIL))
+                         [b (buffer)]
-                               (str (cons term sig)))]}
+                         [sig (with-bindings ((*print-syntax-sugar* NIL))
+                                (term->str (cons term sig)))]}
                     (princ lpad)
                     (princ sug)
                     (unless (equal? sug sig)

help: fix signatures - always print readably, preserving default values such as runes

Keyboard shortcuts

General

Issues and pull requests

Issues, pull requests and Inbox

Repository code