Add lookup-external from recent S48 (it's already described in the manual).

2002-11-07 09:43:29 +00:00 · 2002-11-07 09:43:29 +00:00 · a1e9e54bbc
parent 8900f05fd2
commit a1e9e54bbc
2 changed files with 6 additions and 0 deletions
--- 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

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