From: Mike Gran <spk121@yahoo.com>
Date: Sat, 9 Feb 2019 17:54:55 +0000 (-0800)
Subject: Remove redefinition of when & unless in snarf-check-and-output-texi
X-Git-Tag: v2.9.2~2^2~23
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=1ba5d6f47a54dceee4452a1e7726d2635e5b3449;p=platform%2Fupstream%2Fguile.git

Remove redefinition of when & unless in snarf-check-and-output-texi

* module/scripts/snarf-check-and-output-texi.scm (when, unless): removed
---

diff --git a/module/scripts/snarf-check-and-output-texi.scm b/module/scripts/snarf-check-and-output-texi.scm
index 82d71f4a9..edd416fc2 100644
--- a/module/scripts/snarf-check-and-output-texi.scm
+++ b/module/scripts/snarf-check-and-output-texi.scm
@@ -1,6 +1,6 @@
 ;;; snarf-check-and-output-texi --- called by the doc snarfer.
 
-;; Copyright (C) 2001, 2002, 2006, 2011, 2014 Free Software Foundation, Inc.
+;; Copyright (C) 2001, 2002, 2006, 2011, 2014, 2019 Free Software Foundation, Inc.
 ;;
 ;; This program is free software; you can redistribute it and/or
 ;; modify it under the terms of the GNU Lesser General Public License
@@ -29,14 +29,6 @@
 (define %include-in-guild-list #f)
 (define %summary "Transform snarfed .doc files into texinfo documentation.")
 
-;;; why aren't these in some module?
-
-(define-macro (when cond . body)
-  `(if ,cond (begin ,@body)))
-
-(define-macro (unless cond . body)
-  `(if (not ,cond) (begin ,@body)))
-
 (define *manual-flag* #f)
 
 (define (snarf-check-and-output-texi . flags)