mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

Avoid circular dependency between (rnrs base) and (rnrs exceptions).

Browse source 
* module/rnrs/base.scm (raise): Define as a macro instead of a
  procedure.
This commit is contained in:
Ludovic Courtès 2011-02-02 16:17:48 +01:00
parent c62da8f891
commit b8fff11ed9
1 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

9
module/rnrs/base.scm
View file

@ -123,8 +123,13 @@
(define (vector-map proc . vecs) (define (vector-map proc . vecs)
(list->vector (apply map (cons proc (map vector->list vecs))))) (list->vector (apply map (cons proc (map vector->list vecs)))))
(define raise (define-syntax raise
(@ (rnrs exceptions) raise)) ;; Resolve the real `raise' lazily to avoid a circular dependency
;; between `(rnrs base)' and `(rnrs exceptions)'.
(syntax-rules ()
((_ c)
((@ (rnrs exceptions) raise) c))))
(define condition (define condition
(@ (rnrs conditions) condition)) (@ (rnrs conditions) condition))
(define make-error (define make-error