From 90268b356b87f6bea569cd0c7aa04c9fd5a95be9 Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Mon, 10 Mar 1997 15:10:48 +0000 Subject: [PATCH] * boot-9.scm (process-define-module): Modified to handle both keywords and symbols. --- ice-9/boot-9.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm index 3da8ffef6..6243736de 100644 --- a/ice-9/boot-9.scm +++ b/ice-9/boot-9.scm @@ -1724,9 +1724,10 @@ reversed-interfaces) (case (cond ((keyword? (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))) - (else (car kws))) + (else #f)) ((use-module) (if (not (pair? (cdr kws))) (error "unrecognized defmodule argument" kws))