tisp

commit 996ab46d9265a6984980dd74c7a9a6b0e5ee3b2a
parent ea22406861db22b957757dd694b0f04debcf5de8
Author: Ed van Bruggen <edvb@uw.edu>
Date:   Tue,  6 Oct 2020 19:13:54 -0700

Fix doc to use println function

Diffstat:
tib/doc.tsp
 | 
4
++--

1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/tib/doc.tsp b/tib/doc.tsp
@@ -63,12 +63,12 @@
       (cond ((nil? docstr)
              (error 'doc (get proc 'name) ": no documentation found"))
             ((= (caar docstr) (get proc 'name))
-             (map disp (cdar docstr)))
+             (map println (cdar docstr)))
             (else (f (cdr docstr))))))
   (if (or (function? proc) (macro? proc))
     (let ((docstr (car (get proc 'body))))
       (if (string? docstr)
-        (disp (cons (get proc 'name) (get proc 'args)) "\n"
+        (println (cons (get proc 'name) (get proc 'args)) "\n"
               docstr)
         (lookup proc)))
     (lookup proc))