From bd9733926076885e3417b74de76e4c9c7bc56254 Mon Sep 17 00:00:00 2001
From: Bryan Newbold <bnewbold@robocracy.org>
Date: Mon, 20 Feb 2017 00:05:28 -0800
Subject: Import Upstream version 2c7

---
 formatst.scm | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

(limited to 'formatst.scm')

diff --git a/formatst.scm b/formatst.scm
index 370a39c..3f19130 100644
--- a/formatst.scm
+++ b/formatst.scm
@@ -7,7 +7,7 @@
 
 ; Failure reports for various scheme interpreters:
 ;
-; SCM4d 
+; SCM4d
 ;   None.
 ; Elk 2.2:
 ;   None.
@@ -16,7 +16,7 @@
 ;   represented as `#f'.
 ; Scheme->C 01nov91:
 ;   None, if format:symbol-case-conv and format:iobj-case-conv are set
-;   to string-downcase. 
+;   to string-downcase.
 
 (require 'format)
 (if (not (string=? format:version "3.0"))
@@ -82,7 +82,7 @@
 (test '("~a" #t) "#t")
 (test '("~a" #f) "#f")
 (test '("~a" "abc") "abc")
-(test '("~a" '#(1 2 3)) "#(1 2 3)")
+(test '("~a" #(1 2 3)) "#(1 2 3)")
 (test '("~a" ()) "()")
 (test '("~a" (a)) "(a)")
 (test '("~a" (a b)) "(a b)")
@@ -294,7 +294,7 @@ def")
 (test '("~a" "abc \" abc") "abc \" abc")
 (test '("~s" #\space) "#\\space")
 (test '("~s" #\newline) "#\\newline")
-(test '("~s" #\tab) "#\\ht")
+(test `("~s" ,slib:tab) "#\\ht")
 (test '("~s" #\a) "#\\a")
 (test '("~a" (a "b" c)) "(a \"b\" c)")
 
@@ -576,7 +576,7 @@ def")
 	"   31.   | 31.4    | 31.4    |  31.    ")
   (test '("~9,2,1,,'*g|~9,3,2,3,'?,,'$g|~9,3,2,0,'%g|~9,2g"
 	  314.159 314.159 314.159 314.159)
-	"  3.14E+2| 314.    | 314.    |  3.14E+2") 
+	"  3.14E+2| 314.    | 314.    |  3.14E+2")
   (test '("~9,2,1,,'*g|~9,3,2,3,'?,,'$g|~9,3,2,0,'%g|~9,2g"
 	  3141.59 3141.59 3141.59 3141.59)
 	"  3.14E+3|314.2$+01|0.314E+04|  3.14E+3")
@@ -586,8 +586,8 @@ def")
   (test '("~9,2,1,,'*g|~9,3,2,3,'?,,'$g|~9,3,2,0,'%g|~9,2g"
 	  3.14E120 3.14E120 3.14E120 3.14E120)
 	"*********|?????????|%%%%%%%%%|3.14E+120")
-  
-  (test '("~g" 0.0) "0.0    ")		; further ~g tests 
+
+  (test '("~g" 0.0) "0.0    ")		; further ~g tests
   (test '("~g" 0.1) "0.1    ")
   (test '("~g" 0.01) "1.0E-2")
   (test '("~g" 123.456) "123.456    ")
@@ -624,7 +624,7 @@ def")
 
 ; complex numbers
 
-(cond 
+(cond
  (format:complex-numbers
   (test '("~i" 3.0) "3.0+0.0i")
   (test '("~,3i" 3.0) "3.000+0.000i")
@@ -634,7 +634,7 @@ def")
   (test `("~7,2,,,'*@i" ,(string->number "3.0+5.0i")) "**+3.00**+5.00i")
   )) ; note: some parsers choke syntactically on reading a complex
      ; number though format:complex is #f; this is why we put them in
-     ; strings 
+     ; strings
 
 ; inquiry test
 
-- 
cgit v1.2.3