suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Forgot to fix things so that void-typed (in the Honu sense) values don't

Browse Source 
get printed out.

svn: r320
This commit is contained in:
Stevie Strickland 2005-07-04 04:56:51 +00:00
parent 62d631998b
commit 5681703341
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/honu/tool.ss
View File

@ -141,7 +141,7 @@
(display (format-honu value settings) port)) (display (format-honu value settings) port))
(define/public (render-value/format value settings port width) (define/public (render-value/format value settings port width)
(render-value value settings port) (render-value value settings port)
(if (not (null? value)) (newline port))) (if (not (null? (car value))) (newline port)))
(define/public (create-executable settings parent src-file teachpacks) (define/public (create-executable settings parent src-file teachpacks)
(message-box "Unsupported" (message-box "Unsupported"
"Sorry - executables are not supported for Honu at this time" "Sorry - executables are not supported for Honu at this time"
@ -164,9 +164,12 @@
;; if we have a pair, then we evaluated an expression (the car) ;; if we have a pair, then we evaluated an expression (the car)
;; and we also have its type (the cdr). ;; and we also have its type (the cdr).
[(pair? result) [(pair? result)
(if (null? (car result))
;; Don't print out anything for void values.
""
(format "~a : ~a" (format "~a : ~a"
(format-honu-value (car result) settings 0) (format-honu-value (car result) settings 0)
(printable-type (cdr result)))] (printable-type (cdr result))))]
;; If we got here, then who knows what we got -- just print it out. ;; If we got here, then who knows what we got -- just print it out.
[else (format "~a" result)])) [else (format "~a" result)]))