source: project/chicken/trunk/unsafe-declarations.scm @ 15164

Last change on this file since 15164 was 15057, checked in by felix winkelmann, 10 years ago

fix for begin-capturing bug (#47), removed uses of define-macro

File size: 3.1 KB
Line 
1;;;; unsafe-declarations.scm - various settings for libraries compiled in unsafe mode
2;
3; Copyright (c) 2008, 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(cond-expand
28 (unsafe
29  (define-syntax ##sys#check-closure
30    (syntax-rules ()
31      ((_ . _) (##core#undefined))))
32  (define-syntax ##sys#check-inexact
33    (syntax-rules ()
34      ((_ . _) (##core#undefined))))
35  (define-syntax ##sys#check-range
36    (syntax-rules ()
37      ((_ . _) (##core#undefined))))
38  (define-syntax ##sys#check-pair
39    (syntax-rules ()
40      ((_ . _) (##core#undefined))))
41  (define-syntax ##sys#check-blob
42    (syntax-rules ()
43      ((_ . _) (##core#undefined))))
44  (define-syntax ##sys#check-list
45    (syntax-rules ()
46      ((_ . _) (##core#undefined))))
47  (define-syntax ##sys#check-symbol
48    (syntax-rules ()
49      ((_ . _) (##core#undefined))))
50  (define-syntax ##sys#check-string
51    (syntax-rules ()
52      ((_ . _) (##core#undefined))))
53  (define-syntax ##sys#check-char
54    (syntax-rules ()
55      ((_ . _) (##core#undefined))))
56  (define-syntax ##sys#check-exact
57    (syntax-rules ()
58      ((_ . _) (##core#undefined))))
59  (define-syntax ##sys#check-port
60    (syntax-rules ()
61      ((_ . _) (##core#undefined))))
62  (define-syntax ##sys#check-port-mode
63    (syntax-rules ()
64      ((_ . _) (##core#undefined))))
65  (define-syntax ##sys#check-port*
66    (syntax-rules ()
67      ((_ . _) (##core#undefined))))
68  (define-syntax ##sys#check-number
69    (syntax-rules ()
70      ((_ . _) (##core#undefined))))
71  (define-syntax ##sys#check-special
72    (syntax-rules ()
73      ((_ . _) (##core#undefined))))
74  (define-syntax ##sys#check-byte-vector
75    (syntax-rules ()
76      ((_ . _) '(##core#undefined)) ) ))
77 (else))
Note: See TracBrowser for help on using the repository browser.