core: Add module type.
[mes.git] / scaffold / boot / 52-define-module.scm
index 65b4426802e0c1f64851a0c47f9a8ec01cd9ec61..a7150162ece6bd859bfdf5441548e4be84170717 100644 (file)
@@ -69,7 +69,7 @@
 ;;;;;;;;;;;;;;;;;;
 
   (define (string->symbol s)
-    (core:lookup-symbol (core:car s)))
+    (list->symbol (core:car s)))
 
   (define-macro (load file)
     (list 'primitive-load file))