From 5681703341380d908289d1c55c3e0f9c907bb9c6 Mon Sep 17 00:00:00 2001 From: Stevie Strickland Date: Mon, 4 Jul 2005 04:56:51 +0000 Subject: [PATCH] Forgot to fix things so that void-typed (in the Honu sense) values don't get printed out. svn: r320 --- collects/honu/tool.ss | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/collects/honu/tool.ss b/collects/honu/tool.ss index a8ec5ab79b..a9e66e5e1e 100644 --- a/collects/honu/tool.ss +++ b/collects/honu/tool.ss @@ -141,7 +141,7 @@ (display (format-honu value settings) port)) (define/public (render-value/format value settings port width) (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) (message-box "Unsupported" "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) ;; and we also have its type (the cdr). [(pair? result) - (format "~a : ~a" - (format-honu-value (car result) settings 0) - (printable-type (cdr result)))] + (if (null? (car result)) + ;; Don't print out anything for void values. + "" + (format "~a : ~a" + (format-honu-value (car result) settings 0) + (printable-type (cdr result))))] ;; If we got here, then who knows what we got -- just print it out. [else (format "~a" result)]))