HEADS UP: exp->string is now write-to-string

part of darcs patch Sat Sep 17 17:28:05 EEST 2005  Martin Gasbichler <gasbichl@informatik.uni-tuebingen.de>

scheme/browse-directory-list.scm

@@ -198,7 +198,7 @@
 	  self)))
 
       (define (prepare-selection-for-scheme-mode file-names)
-	(string-append "'" (exp->string file-names)))
+	(string-append "'" (write-to-string file-names)))
 
       ;; FIXME: quote file names containing space etc
       (define (prepare-selection-for-command-mode file-names)
@@ -222,11 +222,11 @@
 				(make-focus-object-reference 
 				 focus-object-table obj))))
 	  (if (null? marked)
-	      (exp->string 
+	      (write-to-string 
 	       (make-reference (select-list-selected-entry select-list)))
 	      (string-append
 	       "(list " 
-	       (string-join (map exp->string (map make-reference marked)))
+	       (string-join (map write-to-string (map make-reference marked)))
 	       ")"))))
 
       (lambda (message)

scheme/inspector.scm

@@ -44,7 +44,7 @@
       (substring str 0 (min (string-length str) max-length)))))
 
 (define (prepare-selection-for-scheme-mode file-names)
-  (string-append "'" (exp->string file-names)))
+  (string-append "'" (write-to-string file-names)))
 
 (define (continuation-debug-data thing)
   (template-debug-data (continuation-template thing)))
@@ -158,11 +158,11 @@
                               (make-focus-object-reference 
                                focus-object-table obj))))
         (if (null? marked)
-            (exp->string 
+            (write-to-string 
              (make-reference (select-list-selected-entry selection-list)))
             (string-append
              "(list " 
-             (string-join (map exp->string (map make-reference marked)))
+             (string-join (map write-to-string (map make-reference marked)))
              ")"))))
 
     (define (get-selection-as-text self for-scheme-mode? focus-object-table)

scheme/nuit-packages.scm

@@ -10,7 +10,7 @@
 
 (define-interface utils-interface
   (export display-to-string
-          exp->string))
+          write-to-string))
 
 (define-structure utils utils-interface
   (open scheme

scheme/process.scm

@@ -57,7 +57,7 @@
 	    (select-list-selected-entry select-list))))
 	 (for-scheme-mode?
 	  (string-append
-	   "'" (exp->string (map process-info-pid marked))))
+	   "'" (write-to-string (map process-info-pid marked))))
 	 (else
 	  (string-join 
 	   (map number->string

scheme/select-list.scm

@@ -194,10 +194,10 @@
 			    (make-focus-object-reference 
 			     focus-object-table obj))))
       (if (null? marked)
-	  (exp->string 
+	  (write-to-string 
 	   (make-reference (select-list-selected-entry select-list)))
 	  (string-append
 	   "(list " 
-	   (string-join (map exp->string (map make-reference marked)))
+	   (string-join (map write-to-string (map make-reference marked)))
 	   ")")))))
 

scheme/std-viewer.scm

@@ -3,7 +3,7 @@
 	(y 1)
         (value value)
         (text (layout-result-standard 
-               (exp->string value)
+               (write-to-string value)
                (result-buffer-num-cols buffer))))
     (lambda (message)      
       (debug-message "message for make-standard-viewer" message)

scheme/user-group-info.scm

@@ -108,7 +108,7 @@
           (result-buffer-num-lines buffer))))
     
     (define (prepare-selection-for-scheme-mode infos)
-	(string-append "'" (exp->string (map cdr infos))))
+	(string-append "'" (write-to-string (map cdr infos))))
 
     (define (prepare-selection-for-command-mode infos)
       (string-join
@@ -137,7 +137,7 @@
         (string-append
          "(list "
          (string-join 
-          (map exp->string
+          (map write-to-string
                (map make-reference 
                     (map cdr infos))))
          ")")))
@@ -252,7 +252,7 @@
     (define (prepare-selection-for-scheme-mode infos)
       (string-append 
        "'" 
-       (exp->string
+       (write-to-string
         (map group-info-element->value infos))))
 
     (define (get-selection-as-text self for-scheme-mode?
@@ -273,7 +273,7 @@
         (string-append 
          "(list "
          (string-join
-          (map exp->string
+          (map write-to-string
                (map make-reference
                     (map group-info-element->value infos))))
          ")")))
@@ -334,7 +334,7 @@
     (define (prepare-selection-for-scheme-mode infos)
       (string-append 
        "'" 
-       (exp->string
+       (write-to-string
         (map user-info-element->value infos))))
 
     (define (get-selection-as-text self for-scheme-mode?
@@ -355,7 +355,7 @@
         (string-append 
          "(list "
          (string-join
-          (map exp->string
+          (map write-to-string
                (map make-reference
                     (map user-info-element->value infos))))
          ")")))