mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-25 14:10:22 +02:00
Code Activity

* boot-9.scm (process-define-module): Modified to handle both

Browse source 
keywords and symbols.
This commit is contained in:
Mikael Djurfeldt 1997-03-10 15:10:48 +00:00
parent 04798288c6
commit 90268b356b
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
ice-9/boot-9.scm
View file

@ -1724,9 +1724,10 @@
reversed-interfaces) reversed-interfaces)
(case (cond ((keyword? (car kws)) (case (cond ((keyword? (car kws))
(keyword->symbol (car kws))) (keyword->symbol (car kws)))
((symbol? (car kws)) ((and (symbol? (car kws))
(eq? (string-ref (car kws) 0) #\:))
(string->symbol (substring (car kws) 1))) (string->symbol (substring (car kws) 1)))
(else (car kws))) (else #f))
((use-module) ((use-module)
(if (not (pair? (cdr kws))) (if (not (pair? (cdr kws)))
(error "unrecognized defmodule argument" kws)) (error "unrecognized defmodule argument" kws))