From dede06f2a060db1e78a0878cc4af23607da8c5a4 Mon Sep 17 00:00:00 2001 From: Matthias Felleisen Date: Sun, 19 Oct 2014 17:24:33 -0400 Subject: [PATCH] bring htdp/*sl languages up-to-date with #true, #false, '() --- pkgs/htdp-pkgs/htdp-lib/htdp/bsl/runtime.rkt | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/pkgs/htdp-pkgs/htdp-lib/htdp/bsl/runtime.rkt b/pkgs/htdp-pkgs/htdp-lib/htdp/bsl/runtime.rkt index 506c61f63e..3c2ac07345 100644 --- a/pkgs/htdp-pkgs/htdp-lib/htdp/bsl/runtime.rkt +++ b/pkgs/htdp-pkgs/htdp-lib/htdp/bsl/runtime.rkt @@ -11,7 +11,8 @@ (define (configure options) ;; Set print-convert options: - (booleans-as-true/false #t) + (booleans-as-true/false #f) + (print-boolean-long-form #t) (constructor-style-printing #t) (add-make-prefix-to-constructor #f) (abbreviate-cons-as-list (memq 'abbreviate-cons-as-list options)) @@ -19,9 +20,10 @@ (let ([ph (current-print-convert-hook)]) (lambda (val basic sub) (cond - [(equal? val set!-result) '(void)] - [(is-image? val) val] - [else (ph val basic sub)])))) + [(equal? val '()) ''()] + [(equal? val set!-result) '(void)] + [(is-image? val) val] + [else (ph val basic sub)])))) (use-named/undefined-handler (lambda (x) (and (memq 'use-function-output-syntax options)