Removed debugging printf
svn: r328
This commit is contained in:
parent
39cb4f027f
commit
541cf4b7ad
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue
Block a user