scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

This commit is contained in:
mainzelm 2002-11-07 09:43:29 +00:00
parent 8900f05fd2
commit a1e9e54bbc
2 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
scheme/big/external.scm
View File

@ -98,6 +98,11 @@
losers) losers)
#f)))))) #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 ; Quietly look up all externals, returning #F if unsuccessful

1
scheme/more-interfaces.scm
View File

@ -289,6 +289,7 @@
(export dynamic-load (export dynamic-load
get-external get-external
lookup-external
lookup-all-externals lookup-all-externals
external? external?