From: Joe Marshall <jmarshall@alum.mit.edu>
Date: Tue, 9 Feb 2010 19:02:07 +0000 (-0800)
Subject: Add and export CONSTANT-PROCEDURE.
X-Git-Tag: 20100708-Gtk~168^2~16
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=86d4331b26f336d8954bf89fd2143aea955a8e66;p=mit-scheme.git

Add and export CONSTANT-PROCEDURE.
---

diff --git a/src/runtime/global.scm b/src/runtime/global.scm
index db9b58841..32189728d 100644
--- a/src/runtime/global.scm
+++ b/src/runtime/global.scm
@@ -94,6 +94,7 @@ USA.
 ;;;; Potpourri
 
 (define (identity-procedure x) x)
+(define (constant-procedure k) (lambda args (declare (ignore args)) k))
 (define (null-procedure . args) args '())
 (define (false-procedure . args) args #f)
 (define (true-procedure . args) args #t)
diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg
index 7e327fed7..11ec4db50 100644
--- a/src/runtime/runtime.pkg
+++ b/src/runtime/runtime.pkg
@@ -291,6 +291,7 @@ USA.
 	  cd
 	  cell-contents
 	  cell?
+	  constant-procedure
 	  default/exit
 	  default/quit
 	  environment-link-name