@@ -929,8 +929,8 @@ (sym (string ,string->symbol) (char ,(lambda (c) (string->symbol (string c))))) - (int (char ,char->ascii) - (num ,iround) + (int (char ,(lambda (c . args) (char->ascii c))) + (num ,(lambda (x . args) (iround x))) (string ,(lambda (x . args) (let ((n (apply string->number x args))) (if n (iround n) ac.scm 4576b309fe877293803970a5e235fcdf48c2d08a Justin Kendrick twilightsentry@gmail.com http://github.com/nex3/arc/commit/1696bc4e0d298867e6691279e2776de978692b20 1696bc4e0d298867e6691279e2776de978692b20 2009-10-21T19:07:51-07:00 2009-10-21T19:07:51-07:00 as.scm: fix coercion to 'int (bug found by Markus Hennig <mhennig@gmail.com> 3a34bdfc7380a325a9c885300de3ececdc3890a3 Justin Kendrick twilightsentry@gmail.com