Permalink
Browse files

Update test case so that it actually runs

  • Loading branch information...
1 parent 0918bbc commit c30972e30a89edd07e288464359346fd8e336293 @norm2782 norm2782 committed Nov 4, 2011
@@ -18,3 +18,20 @@ main = do
let hfn = mkDyn jfn
print $ hfn 3
+{-
+
+Suppose we get some function: function(y) { return ... ; }
+
+We then want to wrap it in:
+
+$import_dynamic.$mkDyn =
+ new _F_("import_dynamic.mkDyn", function($__, $__2) {
+ var $__3 = _e_($__);
+ var $__4 = new _F_("", function(vr1) {
+ var $__5 = _e_(vr1);
+ return [$__($__5), $__2];
+ });
+ return $__4;
+ });
+
+-}
@@ -30,8 +30,8 @@
<script type="text/javascript" src="../../../uhc-jscript/src/Language/UHC/JScript/Language_UHC_JScript_Primitives.mjs"></script>
<script type="text/javascript" src="../../../uhc-jscript/src/Language/UHC/JScript/Language_UHC_JScript_Assorted.mjs"></script>
<script type="text/javascript" src="../../../uhc-jscript/src/Language/UHC/JScript/JQuery/Language_UHC_JScript_JQuery_JQuery.mjs"></script>
-<script type="text/javascript" src="import_wrapper_perm.js"></script>
-<script type="text/javascript" src="import_wrapper.js"></script>
+<script type="text/javascript" src="import_dynamic_perm.js"></script>
+<script type="text/javascript" src="import_dynamic.js"></script>
</head>
<body>
</body>

0 comments on commit c30972e

Please sign in to comment.