MCPcopy Index your code
hub / github.com/clojure/clojure / registerArg

Method registerArg

src/jvm/clojure/lang/LispReader.java:913–926  ·  view source on GitHub ↗
(int n)

Source from the content-addressed store, hash-verified

911}
912
913static Symbol registerArg(int n){
914 PersistentTreeMap argsyms = (PersistentTreeMap) ARG_ENV.deref();
915 if(argsyms == null)
916 {
917 throw new IllegalStateException("arg literal not in #()");
918 }
919 Symbol ret = (Symbol) argsyms.valAt(n);
920 if(ret == null)
921 {
922 ret = garg(n);
923 ARG_ENV.set(argsyms.assoc(n, ret));
924 }
925 return ret;
926}
927
928static class ArgReader extends AFn{
929 public Object invoke(Object reader, Object pct, Object opts, Object pendingForms) {

Callers 1

invokeMethod · 0.80

Calls 5

valAtMethod · 0.95
gargMethod · 0.95
assocMethod · 0.95
derefMethod · 0.65
setMethod · 0.45

Tested by

no test coverage detected