Data commit

Task/Literals-Integer/Quackery/literals-integer-1.quackery

@@ -0,0 +1,8 @@
+[ 2 base put ] now!
+
+( The Quackery compiler now expects numeric literals to be in binary.   )
+
+[ base release ] now!
+
+( The Quackery compiler now expects numeric literals to be in whichever
+  base they were previously. The default base is decimal.               )

Task/Literals-Integer/Quackery/literals-integer-2.quackery

@@ -0,0 +1,13 @@
+  [ 8 base put
+    nextword dup
+    $ '' = if
+      [ $ '"octal" needs a number after it.'
+        message put bail ]
+    dup $->n iff
+      [ nip swap dip join ]
+    else
+      [ drop
+        char " swap join
+        $ '" is not octal.'
+        join message put bail ]
+    base release ]              builds octal ( [ $ --> [ $ )