diff options
author | Andy Wingo <wingo@pobox.com> | 2012-01-20 21:16:50 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2012-01-20 21:16:50 +0100 |
commit | fb01fd87729256ac9740a275ced1dd83dafadfdf (patch) | |
tree | 12aa770465904a26409fd0a68d644320ed32c77d /module/rnrs | |
parent | 9accf3d98ffd1d9d484e5214a9dd9e4054204557 (diff) | |
download | guile-fb01fd87729256ac9740a275ced1dd83dafadfdf.tar.gz |
remove duplicate when/unless definitions
* module/rnrs/control.scm:
* module/sxml/ssax.scm:
* test-suite/lalr/common-test.scm: Remove local `when'/`unless'
definitions.
Diffstat (limited to 'module/rnrs')
-rw-r--r-- | module/rnrs/control.scm | 14 |
1 files changed, 2 insertions, 12 deletions
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))) |