nit

5 years ago · 011a36c510
parent 2956910cab
commit 011a36c510
1 changed files with 1 additions and 1 deletions
--- a/quad/quad/quad.rkt
+++ b/quad/quad/quad.rkt
@ -6,7 +6,7 @@

 (define (size q)
  (match (quad-size q)
-    [(? procedure? proc) #R proc (proc q)]
+    [(? procedure? proc) proc (proc q)]
    [(? promise? prom) (force prom)]
    [val val]))