Fix UniDoc to handle single-line compound expressions. Also fixes bug…

… in handleng continued csets and strings.

Signed-off-by: Steve Wampler <[email protected]>

uni/unidoc/UniFile.icn

@@ -214,29 +214,35 @@ class UniFile : Object (iKeySet, uKeySet, oldTokens, buffer, line, fName,
                         }
                     else {  # Hard cases, might have continuation
 
-                        if =";" then {          # Not so hard after all
-                            setBuffer(tab(0))
+                        if ="#" then {          # Easy
+                            line := buffer
+                            clearBuffer()
                             return line
                             }
 
-                        if ="#" then {          # Also easy
-                            line := buffer
+                        if =";" then {          # Not too hard
+                            #  (We're not going to care about anything
+                            #  else on the line...)
                             clearBuffer()
                             return line
                             }
-    
-                        if any('\'') then {    l    # Hard
+
+                        if ="'" then {    l    # Harder
                             if not (line ||:= matchCSet()) then {
                                 # Must be a continued cset!
-                                setBuffer(buffer[1:-1] | "")
+                                #  (We're not going to care about anything
+                                #  else on the line...)
+                                clearBuffer()
                                 break
                                 }
                             }
 
-                        if any('"') then {         # Hard
+                        if ="\"" then {         # Harder
                             if not (line ||:= matchString()) then {
                                 # Must be a continued string!
-                                setBuffer(buffer[1:-1] | "")
+                                #  (We're not going to care about anything
+                                #  else on the line...)
+                                clearBuffer()
                                 break
                                 }
                             }
@@ -251,7 +257,6 @@ class UniFile : Object (iKeySet, uKeySet, oldTokens, buffer, line, fName,
         if *buffer > 0 then {
             line := buffer
             clearBuffer()
-            line
             }
 
     end