From 2c2e86e10ff963a6aefa14f76fd8833ce3c9157c Mon Sep 17 00:00:00 2001 From: Marshall Lochbaum Date: Mon, 13 Dec 2021 22:22:03 -0500 Subject: =?UTF-8?q?Copy=20state=20for=20=E2=80=A2ReBQN=20on=20every=20call?= =?UTF-8?q?,=20not=20once=20per=20file?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- docs/bqn.js | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'docs') diff --git a/docs/bqn.js b/docs/bqn.js index 6da47847..c0a18d69 100644 --- a/docs/bqn.js +++ b/docs/bqn.js @@ -528,7 +528,7 @@ let makebqn = (proc,fn) => st => (x,w) => { return fn(st.comps(st)(src)); } let makebqnfn = (e,fn) => makebqn((x,w,u,s)=>req1str(e,x,u(s,w)), fn); -let dynsys_copy = fn => dynsys(st => fn(copy_state(st))); +let dynsys_copy = fn => dynsys(st => (x,w) => fn(copy_state(st))(x,w)); let rebqn = dynsys_copy(state => (x,w) => { let req = (r,s) => { if (!r) throw Error("•ReBQN: "+s) }; -- cgit v1.2.3