~ chicken-core (chicken-5) bbbbc0be8fb56a1c2e6dc2e37a4d582c780da518

commit bbbbc0be8fb56a1c2e6dc2e37a4d582c780da518
Author:     Peter Bex <peter.bex@xs4all.nl>
AuthorDate: Sun Dec 23 17:51:41 2012 +0100
Commit:     Peter Bex <peter.bex@xs4all.nl>
CommitDate: Sun Dec 23 17:51:41 2012 +0100

    Add regression test for #955

diff --git a/tests/compiler-tests.scm b/tests/compiler-tests.scm
index 8edfe257..c858042c 100644
--- a/tests/compiler-tests.scm
+++ b/tests/compiler-tests.scm
@@ -232,4 +232,10 @@
 (assert (= (* (- (expt 2 flonum-precision) 1)
               (expt 2 (- flonum-maximum-exponent flonum-precision)))
            179769313486231570814527423731704356798070567525844996598917476803157260780028538760589558632766878171540458953514382464234321326889464182768467546703537516986049910576551282076245490090389328944075868508455133942304583236903222948165808559332123348274797826204144723168738177180919299881250404026184124858368.0
-           (string->number "179769313486231570814527423731704356798070567525844996598917476803157260780028538760589558632766878171540458953514382464234321326889464182768467546703537516986049910576551282076245490090389328944075868508455133942304583236903222948165808559332123348274797826204144723168738177180919299881250404026184124858368.0")))
\ No newline at end of file
+           (string->number "179769313486231570814527423731704356798070567525844996598917476803157260780028538760589558632766878171540458953514382464234321326889464182768467546703537516986049910576551282076245490090389328944075868508455133942304583236903222948165808559332123348274797826204144723168738177180919299881250404026184124858368.0")))
+
+;; #955: unsigned-integer64 arg returned magnitude instead of Scheme object.
+(assert (= #xAB54A98CEB1F0AD2
+           ((foreign-lambda* unsigned-integer64 ((unsigned-integer64 x))
+              "C_return(x);")
+            #xAB54A98CEB1F0AD2)))