1 | ;;;; scheme.import.scm - import library for "scheme" module |
---|
2 | ; |
---|
3 | ; Copyright (c) 2008-2009, The Chicken Team |
---|
4 | ; All rights reserved. |
---|
5 | ; |
---|
6 | ; Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following |
---|
7 | ; conditions are met: |
---|
8 | ; |
---|
9 | ; Redistributions of source code must retain the above copyright notice, this list of conditions and the following |
---|
10 | ; disclaimer. |
---|
11 | ; Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following |
---|
12 | ; disclaimer in the documentation and/or other materials provided with the distribution. |
---|
13 | ; Neither the name of the author nor the names of its contributors may be used to endorse or promote |
---|
14 | ; products derived from this software without specific prior written permission. |
---|
15 | ; |
---|
16 | ; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS |
---|
17 | ; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY |
---|
18 | ; AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR |
---|
19 | ; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR |
---|
20 | ; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR |
---|
21 | ; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY |
---|
22 | ; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR |
---|
23 | ; OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE |
---|
24 | ; POSSIBILITY OF SUCH DAMAGE. |
---|
25 | |
---|
26 | |
---|
27 | (##sys#register-primitive-module |
---|
28 | 'scheme |
---|
29 | '(not boolean? eq? eqv? equal? pair? |
---|
30 | cons car cdr caar cadr cdar cddr caaar caadr cadar caddr cdaar cdadr |
---|
31 | cddar cdddr caaaar caaadr caadar caaddr cadaar cadadr caddar cadddr cdaaar |
---|
32 | cdaadr cdadar cdaddr cddaar cddadr cdddar cddddr set-car! set-cdr! |
---|
33 | null? list? list length list-tail list-ref append reverse memq memv |
---|
34 | member assq assv assoc symbol? symbol->string string->symbol number? |
---|
35 | integer? exact? real? complex? inexact? rational? zero? odd? even? |
---|
36 | positive? negative? max min + - * / = > < >= <= quotient remainder |
---|
37 | modulo gcd lcm abs floor ceiling truncate round exact->inexact |
---|
38 | inexact->exact exp log expt sqrt sin cos tan asin acos atan |
---|
39 | number->string string->number char? char=? char>? char<? char>=? |
---|
40 | char<=? char-ci=? char-ci<? char-ci>? char-ci>=? char-ci<=? |
---|
41 | char-alphabetic? char-whitespace? char-numeric? char-upper-case? |
---|
42 | char-lower-case? char-upcase char-downcase char->integer integer->char |
---|
43 | string? string=? string>? string<? string>=? string<=? string-ci=? |
---|
44 | string-ci<? string-ci>? string-ci>=? string-ci<=? make-string |
---|
45 | string-length string-ref string-set! string-append string-copy |
---|
46 | string->list list->string substring string-fill! vector? make-vector |
---|
47 | vector-ref vector-set! string vector vector-length vector->list |
---|
48 | list->vector vector-fill! procedure? map for-each apply force |
---|
49 | call-with-current-continuation input-port? output-port? |
---|
50 | current-input-port current-output-port call-with-input-file |
---|
51 | call-with-output-file open-input-file open-output-file |
---|
52 | close-input-port close-output-port load read eof-object? read-char |
---|
53 | peek-char write display write-char newline with-input-from-file |
---|
54 | with-output-to-file dynamic-wind values call-with-values eval |
---|
55 | char-ready? imag-part real-part magnitude numerator denominator |
---|
56 | scheme-report-environment null-environment interaction-environment |
---|
57 | er-macro-transformer) |
---|
58 | ##sys#default-macro-environment) |
---|