From 6232c3dd6911e3e64cb34e8d15673d7f336e2bee Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Fri, 11 Aug 2000 08:46:14 +0000 Subject: [PATCH] * syncase.scm (eval): Add second arg both in definition and use. --- ice-9/syncase.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/ice-9/syncase.scm b/ice-9/syncase.scm index bc124bafd..0ca94520e 100644 --- a/ice-9/syncase.scm +++ b/ice-9/syncase.scm @@ -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 ;;;; 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-public (eval x) +(define-public (eval x environment) (internal-eval (if (and (pair? x) (string=? (car x) "noexpand")) (cadr x) - (sc-expand x)))) + (sc-expand x)) + environment)) ;;; Hack to make syncase macros work in the slib module (let ((m (nested-ref the-root-module '(app modules ice-9 slib))))