Use scm_gc_malloc/scm_malloc and scm_gc_free/free instead of

[bpt/guile.git] / srfi / srfi-11.scm

diff --git a/srfi/srfi-11.scm b/srfi/srfi-11.scm
index 758ef28..32f35a8 100644 (file)
--- a/srfi/srfi-11.scm
+++ b/srfi/srfi-11.scm
@@ -1,6 +1,6 @@
 ;;;; srfi-11.scm --- SRFI-11 procedures for Guile
 
-;;; Copyright (C) 2000 Free Software Foundation, Inc.
+;;; Copyright (C) 2000, 2001 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
@@ -42,7 +42,8 @@
 ;;; If you do not wish that, delete this exception notice.
 
 (define-module (srfi srfi-11)
-  :use-module (ice-9 syncase))
+  :use-module (ice-9 syncase)
+  :export-syntax (let-values let*-values))
 
 (cond-expand-provide (current-module) '(srfi-11))
 
@@ -193,7 +194,7 @@
 
   (define (let-values-helper vars body prev-let-vars)
     (let* ((var-binding (car vars))
-           (new-tmps (map-1-dot (lambda (sym) (gentemp))
+           (new-tmps (map-1-dot (lambda (sym) (gensym))
                                 (car var-binding)))
            (let-vars (map (lambda (sym tmp) (list sym tmp))
                           (undot-list (car var-binding))
@@ -256,6 +257,3 @@
 ;   (if (null? vars)
 ;       `(begin ,@body)
 ;       (let-values-helper vars body)))
-
-(export-syntax let-values
-               let*-values)