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

* syncase.scm (eval): Add second arg both in definition and use.

Browse source
This commit is contained in:
Mikael Djurfeldt 2000-08-11 08:46:14 +00:00
parent 21c2a33a19
commit 6232c3dd69
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
ice-9/syncase.scm
View file

@ -1,4 +1,4 @@
;;;; Copyright (C) 1997 Free Software Foundation, Inc. ;;;; Copyright (C) 1997, 2000 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This program is free software; you can redistribute it and/or modify ;;;; This program is free software; you can redistribute it and/or modify
;;;; it under the terms of the GNU General Public License as published by ;;;; it under the terms of the GNU General Public License as published by
@ -152,11 +152,12 @@
(define internal-eval (nested-ref the-scm-module '(app modules guile eval))) (define internal-eval (nested-ref the-scm-module '(app modules guile eval)))
(define-public (eval x) (define-public (eval x environment)
(internal-eval (if (and (pair? x) (internal-eval (if (and (pair? x)
(string=? (car x) "noexpand")) (string=? (car x) "noexpand"))
(cadr x) (cadr x)
(sc-expand x)))) (sc-expand x))
environment))
;;; Hack to make syncase macros work in the slib module ;;; Hack to make syncase macros work in the slib module
(let ((m (nested-ref the-root-module '(app modules ice-9 slib)))) (let ((m (nested-ref the-root-module '(app modules ice-9 slib))))