Changeset 15057 in project for chicken/trunk/unsafe-declarations.scm


Ignore:
Timestamp:
06/25/09 09:39:06 (11 years ago)
Author:
felix winkelmann
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/unsafe-declarations.scm

    r10439 r15057  
    2727(cond-expand
    2828 (unsafe
    29   (eval-when (compile)
    30     (cond-expand
    31      (hygienic-macros
    32       (define-syntax ##sys#check-closure
    33         (syntax-rules ()
    34           ((_ . _) (##core#undefined))))
    35       (define-syntax ##sys#check-inexact
    36         (syntax-rules ()
    37           ((_ . _) (##core#undefined))))
    38       (define-syntax ##sys#check-range
    39         (syntax-rules ()
    40           ((_ . _) (##core#undefined))))
    41       (define-syntax ##sys#check-pair
    42         (syntax-rules ()
    43           ((_ . _) (##core#undefined))))
    44       (define-syntax ##sys#check-blob
    45         (syntax-rules ()
    46           ((_ . _) (##core#undefined))))
    47       (define-syntax ##sys#check-list
    48         (syntax-rules ()
    49           ((_ . _) (##core#undefined))))
    50       (define-syntax ##sys#check-symbol
    51         (syntax-rules ()
    52           ((_ . _) (##core#undefined))))
    53       (define-syntax ##sys#check-string
    54         (syntax-rules ()
    55           ((_ . _) (##core#undefined))))
    56       (define-syntax ##sys#check-char
    57         (syntax-rules ()
    58           ((_ . _) (##core#undefined))))
    59       (define-syntax ##sys#check-exact
    60         (syntax-rules ()
    61           ((_ . _) (##core#undefined))))
    62       (define-syntax ##sys#check-port
    63         (syntax-rules ()
    64           ((_ . _) (##core#undefined))))
    65       (define-syntax ##sys#check-port-mode
    66         (syntax-rules ()
    67           ((_ . _) (##core#undefined))))
    68       (define-syntax ##sys#check-port*
    69         (syntax-rules ()
    70           ((_ . _) (##core#undefined))))
    71       (define-syntax ##sys#check-number
    72         (syntax-rules ()
    73           ((_ . _) (##core#undefined))))
    74       (define-syntax ##sys#check-special
    75         (syntax-rules ()
    76           ((_ . _) (##core#undefined))))
    77       (define-syntax ##sys#check-byte-vector
    78         (syntax-rules ()
    79           ((_ . _) '(##core#undefined)) ) ) )
    80      (else                              ;***
    81       (define-macro (##sys#check-closure . _) '(##core#undefined))
    82       (define-macro (##sys#check-inexact . _) '(##core#undefined))
    83       (define-macro (##sys#check-structure . _) '(##core#undefined))
    84       (define-macro (##sys#check-range . _) '(##core#undefined))
    85       (define-macro (##sys#check-pair . _) '(##core#undefined))
    86       (define-macro (##sys#check-list . _) '(##core#undefined))
    87       (define-macro (##sys#check-symbol . _) '(##core#undefined))
    88       (define-macro (##sys#check-string . _) '(##core#undefined))
    89       (define-macro (##sys#check-blob . _) '(##core#undefined))
    90       (define-macro (##sys#check-char . _) '(##core#undefined))
    91       (define-macro (##sys#check-exact . _) '(##core#undefined))
    92       (define-macro (##sys#check-port . _) '(##core#undefined))
    93       (define-macro (##sys#check-port* . _) '(##core#undefined))
    94       (define-macro (##sys#check-port-mode . _) '(##core#undefined))
    95       (define-macro (##sys#check-special . _) '(##core#undefined))
    96       (define-macro (##sys#check-number . _) '(##core#undefined))
    97       (define-macro (##sys#check-byte-vector . _) '(##core#undefined)) ) ) ) )
     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)) ) ))
    9877 (else))
Note: See TracChangeset for help on using the changeset viewer.