From a1e9e54bbc0e98e992d2fa8c23afd7c1b491f26b Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Thu, 7 Nov 2002 09:43:29 +0000
Subject: [PATCH] Add lookup-external from recent S48 (it's already described
 in the manual).

---
 scheme/big/external.scm    | 5 +++++
 scheme/more-interfaces.scm | 1 +
 2 files changed, 6 insertions(+)

diff --git a/scheme/big/external.scm b/scheme/big/external.scm
index d083ae5..9feb8dd 100644
--- a/scheme/big/external.scm
+++ b/scheme/big/external.scm
@@ -98,6 +98,11 @@
 			   losers)
 		 #f))))))
 
+; Re-lookup one external.
+
+(define (lookup-external external)
+  (external-lookup (external-name external)
+		   (external-value external)))
 
 ; Quietly look up all externals, returning #F if unsuccessful
 
diff --git a/scheme/more-interfaces.scm b/scheme/more-interfaces.scm
index b8301db..7c65237 100644
--- a/scheme/more-interfaces.scm
+++ b/scheme/more-interfaces.scm
@@ -289,6 +289,7 @@
   (export dynamic-load
 
           get-external
+	  lookup-external
 	  lookup-all-externals
 
 	  external?