tisp

tiny lisp
git clone git://edryd.org/tisp
Log | Files | Refs | LICENSE

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))