From 6d691763276e10f33eb2babf280314be9d8b4b6a Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Sat, 27 Nov 2010 00:54:59 +0100
Subject: No more interning in the scheme reader

We avoid using elisp's read for symbols, reading uninterned ones
instead. And then, we cannot use symbols as keys in responses from
scheme: we're using strings instead.
---
 geiser/doc.scm | 29 ++++++++++++++---------------
 1 file changed, 14 insertions(+), 15 deletions(-)

(limited to 'geiser/doc.scm')

diff --git a/geiser/doc.scm b/geiser/doc.scm
index 640f4ad..ebb8e1d 100644
--- a/geiser/doc.scm
+++ b/geiser/doc.scm
@@ -33,7 +33,7 @@
   (let ((args (obj-args (symbol->object id))))
     (and args
          `(,@(signature id args)
-           (module . ,(symbol-module id))))))
+           ("module" . ,(symbol-module id))))))
 
 (define (object-signature name obj)
   (let ((args (obj-args obj)))
@@ -49,15 +49,14 @@
             ((list? args) args)
             (else (list args)))))
   (define (mkargs as)
-    `((required ,@(arglst as 'required))
-      (optional ,@(arglst as 'optional)
-                ,@(let ((rest (assq-ref as 'rest)))
-                    (if rest (list "...") '())))
-      (key ,@(arglst as 'keyword))))
+    `(("required" ,@(arglst as 'required))
+      ("optional" ,@(arglst as 'optional)
+       ,@(if (assq-ref as 'rest) (list "...") '()))
+      ("key" ,@(arglst as 'keyword))))
   (let* ((args-list (map mkargs (if (list? args-list) args-list '())))
          (value (and (and detail (null? args-list))
                      (value-str (symbol->object id)))))
-    `(,id (args ,@args-list) ,@(if value `((value . ,value)) '()))))
+    `(,id ("args" ,@args-list) ,@(if value `(("value" . ,value)) '()))))
 
 (define default-macro-args '(((required ...))))
 
@@ -186,8 +185,8 @@
 (define (symbol-documentation sym)
   (let ((obj (symbol->object sym)))
     (if obj
-        `((signature . ,(or (obj-signature sym obj #f) sym))
-          (docstring . ,(docstring sym obj))))))
+        `(("signature" . ,(or (obj-signature sym obj #f) sym))
+          ("docstring" . ,(docstring sym obj))))))
 
 (define (docstring sym obj)
   (define (valuable?)
@@ -229,23 +228,23 @@
          (elts (map elt-sort elts))
          (subs (map (lambda (m) (list (module-name m)))
                     (submodules (resolve-module mod-name #f)))))
-    (list (cons 'modules subs)
-          (cons 'procs (car elts))
-          (cons 'syntax (cadr elts))
-          (cons 'vars (caddr elts)))))
+    (list (cons "modules" subs)
+          (cons "procs" (car elts))
+          (cons "syntax" (cadr elts))
+          (cons "vars" (caddr elts)))))
 
 (define (classify-module-object name var elts)
   (let ((obj (and (variable-bound? var)
                   (variable-ref var))))
     (cond ((or (not obj) (module? obj)) elts)
           ((or (procedure? obj) (program? obj))
-           (list (cons (list name `(signature . ,(obj-signature name obj)))
+           (list (cons (list name `("signature" . ,(obj-signature name obj)))
                        (car elts))
                  (cadr elts)
                  (caddr elts)))
           ((macro? obj)
            (list (car elts)
-                 (cons (list name `(signature . ,(obj-signature name obj)))
+                 (cons (list name `("signature" . ,(obj-signature name obj)))
                        (cadr elts))
                  (caddr elts)))
           (else (list (car elts)
-- 
cgit v1.2.3