diff options
| author | Rich Hickey <richhickey@gmail.com> | 2009-05-14 11:30:04 +0000 |
|---|---|---|
| committer | Rich Hickey <richhickey@gmail.com> | 2009-05-14 11:30:04 +0000 |
| commit | 479b43a6fa675f34f1d88703adda742a0bd4f888 (patch) | |
| tree | 03af24cef17e43a8444c98ae04d6ef8152ea3fab | |
| parent | fed833d8a117ea137c008bde10dd011d3d7c2b97 (diff) | |
made main a better interop example, using RT.var and Symbol.intern
| -rw-r--r-- | src/jvm/clojure/main.java | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/src/jvm/clojure/main.java b/src/jvm/clojure/main.java index 50bc3434..d9fc8537 100644 --- a/src/jvm/clojure/main.java +++ b/src/jvm/clojure/main.java @@ -11,18 +11,16 @@ package clojure; import clojure.lang.Symbol; -import clojure.lang.Namespace; import clojure.lang.Var; import clojure.lang.RT; public class main{ -final static private Symbol CLOJURE_MAIN = Symbol.create("clojure.main"); -final static private Namespace CLOJURE_MAIN_NS = Namespace.findOrCreate(CLOJURE_MAIN); -final static private Var REQUIRE = Var.intern(RT.CLOJURE_NS, Symbol.create("require")); -final static private Var LEGACY_REPL = Var.intern(CLOJURE_MAIN_NS, Symbol.create("legacy-repl")); -final static private Var LEGACY_SCRIPT = Var.intern(CLOJURE_MAIN_NS, Symbol.create("legacy-script")); -final static private Var MAIN = Var.intern(CLOJURE_MAIN_NS, Symbol.create("main")); +final static private Symbol CLOJURE_MAIN = Symbol.intern("clojure.main"); +final static private Var REQUIRE = RT.var("clojure.core", "require"); +final static private Var LEGACY_REPL = RT.var("clojure.main", "legacy-repl"); +final static private Var LEGACY_SCRIPT = RT.var("clojure.main", "legacy-script"); +final static private Var MAIN = RT.var("clojure.main", "main"); public static void legacy_repl(String[] args) throws Exception{ REQUIRE.invoke(CLOJURE_MAIN); |