.

akkartik · akkartik · commit a9f0679d2006 · 2013-02-20T07:54:13.000-08:00
diff --git a/ac.scm b/ac.scm
@@ -944,8 +944,14 @@
       (flush-output port)))
   'nil)
 
+(define (ar-display arg port)
+  (display (if (eq? 'num (ar-type arg))
+             (exact->inexact arg)
+             arg)
+           port))
+
 (xdef swrite (lambda args (printwith write args)))
-(xdef disp  (lambda args (printwith display args)))
+(xdef disp  (lambda args (printwith ar-display args)))
 
 ; sread = scheme read. eventually replace by writing read
 
diff --git a/arc.arc b/arc.arc
@@ -939,12 +939,7 @@
 ; the rep of these.  That would also require hacking the reader.
 
 (def pr args
-  (if cdr.args
-        (map1 pr args)
-      (isa car.args 'num)
-        (disp:real car.args)
-      'else
-        (disp car.args))
+  (map1 disp args)
   (car args))
 
 (def prt args
