From fb01fd87729256ac9740a275ced1dd83dafadfdf Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Fri, 20 Jan 2012 21:16:50 +0100 Subject: remove duplicate when/unless definitions * module/rnrs/control.scm: * module/sxml/ssax.scm: * test-suite/lalr/common-test.scm: Remove local `when'/`unless' definitions. --- module/rnrs/control.scm | 14 ++------------ 1 file changed, 2 insertions(+), 12 deletions(-) (limited to 'module/rnrs') diff --git a/module/rnrs/control.scm b/module/rnrs/control.scm index b81c1338a..25ffa3eec 100644 --- a/module/rnrs/control.scm +++ b/module/rnrs/control.scm @@ -1,6 +1,6 @@ ;;; control.scm --- The R6RS control structures library -;; Copyright (C) 2010 Free Software Foundation, Inc. +;; Copyright (C) 2010, 2012 Free Software Foundation, Inc. ;; ;; This library is free software; you can redistribute it and/or ;; modify it under the terms of the GNU Lesser General Public @@ -19,14 +19,4 @@ (library (rnrs control (6)) (export when unless do case-lambda) - (import (only (guile) if not begin define-syntax syntax-rules do case-lambda)) - - (define-syntax when - (syntax-rules () - ((when test result1 result2 ...) - (if test (begin result1 result2 ...))))) - - (define-syntax unless - (syntax-rules () - ((unless test result1 result2 ...) - (if (not test) (begin result1 result2 ...)))))) + (import (only (guile) when unless do case-lambda))) -- cgit v1.2.3