From 93515cf43ce16974c7bef1d1d8332e3c8cfe6fac Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Tue, 16 Aug 2011 15:14:52 +0200
Subject: Implement the Salsa20 stream cipher.

---
 typed-stream.rkt | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 typed-stream.rkt

(limited to 'typed-stream.rkt')

diff --git a/typed-stream.rkt b/typed-stream.rkt
new file mode 100644
index 0000000..b674750
--- /dev/null
+++ b/typed-stream.rkt
@@ -0,0 +1,12 @@
+#lang racket
+(require racket/stream)
+
+(provide lazy-functional-stream-append)
+
+(define (lazy-functional-stream-append seq thunk)
+  (let-values ([(next? next) (sequence-generate seq)])
+    (let loop ()
+      (if (next?)
+          (let ([x (next)])
+            (stream-cons x (loop)))
+          (thunk)))))
-- 
cgit v1.2.3