Changeset 444

Timestamp:

08/07/07 01:08:59 (14 months ago)

Author:

krobillard

Message:

rejoin now uses to-text (fix for when first value is char!).

Location:

branches/thune/thread_safe

Files:

• boot.c (modified) (1 diff)
• mkboot.t (modified) (1 diff)
• tests/working/helpers.good (modified) (1 diff)
• tests/working/helpers.t (modified) (1 diff)

branches/thune/thread_safe/boot.c

@@ -135 +135 @@
   "  reduce\n"
   "  dup first\n"
-  "    dup series! is-type? [copy] [string! to] either :val\n"
+  "    dup series! is-type? [copy] [to-text] either :val\n"
   "  next [\n"
   "    first val swap append drop\n"

branches/thune/thread_safe/mkboot.t

@@ -157 +157 @@
   reduce
   dup first
-    dup series! is-type? [copy] [string! to] either :val
+    dup series! is-type? [copy] [to-text] either :val
   next [
     first val swap append drop

branches/thune/thread_safe/tests/working/helpers.good

@@ +1 @@
+--- rejoin ---
+"<hi>"
 --- split-path ---
 my/path/to/ file

branches/thune/thread_safe/tests/working/helpers.t

@@ -1 +1 @@
 ; Test helper functions
+
+
+"--- rejoin ---" print
+
+['<' "hi" '>'] rejoin .
+
 
 "--- split-path ---" print