From 86d4331b26f336d8954bf89fd2143aea955a8e66 Mon Sep 17 00:00:00 2001
From: Joe Marshall <jmarshall@alum.mit.edu>
Date: Tue, 9 Feb 2010 11:02:07 -0800
Subject: [PATCH] Add and export CONSTANT-PROCEDURE.

---
 src/runtime/global.scm  | 1 +
 src/runtime/runtime.pkg | 1 +
 2 files changed, 2 insertions(+)

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
-- 
2.25.1