Merge pull request #2 from Davidebyzero/master

Fix ⍛
abrudz · Jan 15, 2020 · 6df3d3c · 6df3d3c
2 parents 4789488 + b72a03b
commit 6df3d3c
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/SBCS.dyalog b/SBCS.dyalog
@@ -6,9 +6,9 @@
 ⍝   'code.dyalog' SBCS.From 'code.sbcs'
 ⍝ The result of both functions is the number of bytes written
 
-    uc   ← ,¨'⊆⍠⍤⌸⌺⍸⍥⍢√⊇…⌾⍮⍭⍧⍛' ⍝ ∥¤⍰⍛⍜
-    av   ← ,¨'ɫ¥£¢ý·€´§¶∣¿¡',⎕UCS 160 31 12⍝ 
-    cs ← av ⎕R uc⊢⎕AV
+    uc   ← '⊆⍠⍤⌸⌺⍸⍥⍢√⊇…⌾⍮⍭⍧⍛' ⍝ ∥¤⍰⍛⍜
+    av   ← 'ɫ¥£¢ý·€´§¶∣¿¡',⎕UCS 160 31 12⍝ 
+    cs ← (uc @ (⎕AV ⍳ av)) ⎕AV
     To   ← (⊢∘⎕NUNTIE⊢(¯129+cs⍳∘⊃∘⎕NGET⊣)⎕NAPPEND 83,⍨⊢)∘(⊢⎕NCREATE∘≡1∘⎕NDELETE)
     From ← ⊢⊣⎕NPUT⍨∘⊂cs{⍺[⍵]}129+∘(⎕NUNTIE⊢(⎕NREAD,∘83 ¯1))0⎕NTIE⍨⊢
 :EndNamespace