Removed debugging printf

svn: r328
This commit is contained in:
Kathy Gray 2005-07-04 19:40:01 +00:00
parent 39cb4f027f
commit 541cf4b7ad

View File

@ -104,7 +104,7 @@
;cast-primitive: value symbol int -> value
(define (cast-primitive val type dim)
(printf "case-primitive ~a ~a ~n" val type)
;(printf "cast-primitive ~a ~a ~n" val type)
(if (> dim 0)
(if (send val check-prim-type type dim)
val