dmbcs/guile
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* 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:03:41 +00:00
commit 04798288c6
2 changed files with 11 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
ice-9/ChangeLog
View file

@ -1,3 +1,8 @@
Mon Mar 10 15:48:31 1997 Mikael Djurfeldt <mdj@mdj.nada.kth.se>
* boot-9.scm (process-define-module): Modified to handle both
keywords and symbols.
Sat Mar 8 04:32:44 1997 Gary Houston <ghouston@actrix.gen.nz>
* slib.scm: update read usage.

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

@ -1722,8 +1722,12 @@
(for-each (lambda (interface)
(module-use! module interface))
reversed-interfaces)
(case (car kws)
((:use-module)
(case (cond ((keyword? (car kws))
(keyword->symbol (car kws)))
((symbol? (car kws))
(string->symbol (substring (car kws) 1)))
(else (car kws)))
((use-module)
(if (not (pair? (cdr kws)))
(error "unrecognized defmodule argument" kws))
(let* ((used-name (cadr kws))