Add 'extra/sto'

diff --git a/extra/sto/sto.factor b/extra/sto/sto.factor
new file mode 100644 (file)
index 0000000..b43c9cc
--- /dev/null
+++ b/extra/sto/sto.factor
@@ -0,0 +1,20 @@
+
+USING: kernel lexer parser words quotations compiler.units ;
+
+IN: sto
+
+! Use 'sto' to bind a value on the stack to a word.
+!
+! Example:
+!
+!   10 sto A
+
+: sto
+  \ 1quotation parsed
+  scan
+    current-vocab create
+    dup set-word
+  literalize parsed
+  \ swap parsed
+  [ define ] parsed
+  \ with-compilation-unit parsed ;                              parsing