>From 93c16ecc42f63388b0459d63f6b57330ae5e1dfb Mon Sep 17 00:00:00 2001 From: Evan Hanson Date: Mon, 20 Apr 2015 18:55:36 +1200 Subject: [PATCH 1/2] Remove extended-bindings for srfi-1 identifiers --- c-platform.scm | 13 +++++-------- 1 file changed, 5 insertions(+), 8 deletions(-) diff --git a/c-platform.scm b/c-platform.scm index 7ed100b..7fea52c 100644 --- a/c-platform.scm +++ b/c-platform.scm @@ -140,16 +140,14 @@ current-input-port current-output-port) ) (set! default-extended-bindings - '(bitwise-and alist-cons xcons - bitwise-ior bitwise-xor bitwise-not add1 sub1 fx+ fx- fx* fx/ - fx+? fx-? fx*? fx/? fxmod o fp/? + '(bitwise-and bitwise-ior bitwise-xor bitwise-not add1 sub1 o + fx+ fx- fx* fx/ fx+? fx-? fx*? fx/? fxmod fp/? fx= fx> fx< fx>= fx<= fixnum? fxneg fxmax fxmin identity fp+ fp- fp* fp/ fpmin fpmax fpneg fp> fp< fp= fp>= fp<= fxand fxnot fxior fxxor fxshr fxshl bit-set? fxodd? fxeven? fpfloor fpceiling fptruncate fpround fpsin fpcos fptan fpasin fpacos fpatan fpatan2 fpexp fpexpt fplog fpsqrt fpabs fpinteger? arithmetic-shift void flush-output - not-pair? atom? null-list? dotted-list? circular-list? - print print* error proper-list? call/cc + atom? print print* error call/cc blob-size u8vector->blob/shared s8vector->blob/shared u16vector->blob/shared s16vector->blob/shared u32vector->blob/shared s32vector->blob/shared f32vector->blob/shared f64vector->blob/shared @@ -158,9 +156,8 @@ blob->f32vector/shared blob->f64vector/shared block-ref block-set! number-of-slots substring-index substring-index-ci any? read-string substring=? substring-ci=? blob=? equal=? - first second third fourth fifth sixth seventh eighth ninth tenth - alist-ref length+ rassoc real-part imag-part - last last-pair string->symbol symbol-append + alist-ref rassoc real-part imag-part + string->symbol symbol-append make-record-instance foldl foldr u8vector-length s8vector-length u16vector-length s16vector-length u32vector-length s32vector-length -- 2.1.4