Removed debugging printf
svn: r328
This commit is contained in:
parent
39cb4f027f
commit
541cf4b7ad
|
@ -104,7 +104,7 @@
|
||||||
|
|
||||||
;cast-primitive: value symbol int -> value
|
;cast-primitive: value symbol int -> value
|
||||||
(define (cast-primitive val type dim)
|
(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 (> dim 0)
|
||||||
(if (send val check-prim-type type dim)
|
(if (send val check-prim-type type dim)
|
||||||
val
|
val
|
||||||
|
|
Loading…
Reference in New Issue
Block a user