Author: yamakenz
Date: Fri Jul 13 05:35:31 2007
New Revision: 4726
Modified:
sigscheme-trunk/lib/srfi-1.scm
Log:
* lib/srfi-1.scm
- (%srfi-1:undefined): New variable
- (for-each): Returen #<undef>
Modified: sigscheme-trunk/lib/srfi-1.scm
==============================================================================
--- sigscheme-trunk/lib/srfi-1.scm (original)
+++ sigscheme-trunk/lib/srfi-1.scm Fri Jul 13 05:35:31 2007
@@ -1036,10 +1036,11 @@
(define map map-in-order)
;; Added by yamaken 2007-06-15
+(define %srfi-1:undefined (for-each values '()))
(define for-each
(lambda args
(apply map-in-order args)
- #f))
+ %srfi-1:undefined))
;;; filter, remove, partition
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
