Skip to content

Instantly share code, notes, and snippets.

@gravicappa
gravicappa / build-shen
Last active June 5, 2016 03:22
Shen-cl builder script
#!/bin/sh
url=http://shenlanguage.org/download/Shen.zip
platforms='clisp sbcl'
sbcl='sbcl --control-stack-size 8'
latest() {
find 'Shen '[0-9]* -type d -maxdepth 0 | sort -V | tail -n 1
}
diff --git a/lib/channel.ml b/lib/channel.ml
index d7b8161..36e3ba8 100644
--- a/lib/channel.ml
+++ b/lib/channel.ml
@@ -75,8 +75,8 @@ let input_data t data =
in
Ok (t, data, msg)
-let output_data t data =
- let fragment data =