OSDN Git Service
(root)
/
happyabc
/
happyabc.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
720723e
)
[UPDATE] remove blank line
author
mzp
<mzpppp@gmail.com>
Sun, 2 Nov 2008 09:46:19 +0000
(18:46 +0900)
committer
mzp
<mzpppp@gmail.com>
Sun, 2 Nov 2008 09:46:19 +0000
(18:46 +0900)
src/closuretrans.ml
patch
|
blob
|
history
src/codegen.ml
patch
|
blob
|
history
diff --git
a/src/closuretrans.ml
b/src/closuretrans.ml
index
3817a94
..
d92c79a
100644
(file)
--- a/
src/closuretrans.ml
+++ b/
src/closuretrans.ml
@@
-6,7
+6,7
@@
type 'a set = 'a Set.t
let set_of_list xs =
List.fold_left (flip Set.add) Set.empty xs
-
+
let union xs =
List.fold_left Set.union Set.empty xs
diff --git
a/src/codegen.ml
b/src/codegen.ml
index
3f4b3f3
..
75592cb
100644
(file)
--- a/
src/codegen.ml
+++ b/
src/codegen.ml
@@
-43,7
+43,6
@@
let arguments_self args f =
f ({empty_env with binding = b }) args' in
code
-
let let_scope {depth=n; binding=binding} vars f =
let env' =
{depth = n+1;
@@
-106,7
+105,6
@@
let define_class name ({sname=super; cname=cname} as klass) env =
Swap;
InitProperty cname]
-
let var_ref var env =
let qname =
make_qname var in
@@
-338,3
+336,4
@@
let generate program =
classes=class_info;
instances=instance_info;
script=[{Abc.init=0; trait_s=traits_class }]}
+