diff options
| author | Eduardo Julian | 2015-04-23 20:05:26 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2015-04-23 20:05:26 -0400 |
| commit | d366abe19aaf9b688312d2f845f6771b8478cc0c (patch) | |
| tree | 78c2e3fbd68cec0fb2517ac9012fef1f58f39573 /src/lux/reader.clj | |
| parent | e732d425320e635277d1e0021856924acc7c5b0c (diff) | |
- Migrated all the record data-structures to the new tuple-like format.
Diffstat (limited to '')
| -rw-r--r-- | src/lux/reader.clj | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/lux/reader.clj b/src/lux/reader.clj index d5d7b453c..2eacdafcc 100644 --- a/src/lux/reader.clj +++ b/src/lux/reader.clj @@ -7,7 +7,7 @@ ;; [Utils] (defn ^:private with-line [body] (fn [state] - (matchv ::M/objects [(&/get$ "lux;source" state)] + (matchv ::M/objects [(&/get$ &/$SOURCE state)] [["lux;None" _]] (fail* "[Reader Error] No source code.") @@ -21,11 +21,11 @@ (fail* msg) [["Yes" [meta ["lux;None" _]]]] - (return* (&/set$ "lux;source" (&/V "lux;Some" more) state) + (return* (&/set$ &/$SOURCE (&/V "lux;Some" more) state) meta) [["Yes" [meta ["lux;Some" line-meta]]]] - (return* (&/set$ "lux;source" (&/V "lux;Some" (&/|cons line-meta more)) state) + (return* (&/set$ &/$SOURCE (&/V "lux;Some" (&/|cons line-meta more)) state) meta)) ))) @@ -87,7 +87,7 @@ (def current-line (fn [state] - (matchv ::M/objects [(&/get$ "lux;source" state)] + (matchv ::M/objects [(&/get$ &/$SOURCE state)] [["lux;None" _]] (fail* "[Reader Error] No source code.") |