Skip to content
Browse files

Correction to Section 8.9

  • Loading branch information...
1 parent 30a8fe5 commit 85f7872c71530baa462797d86e3b2ed172325d7d @jafingerhut committed Jan 6, 2012
Showing with 1 addition and 2 deletions.
  1. +1 −2 8_file_contents.clj
View
3 8_file_contents.clj
@@ -524,12 +524,11 @@
(if (= s " ")
(perl-split-on-space s)
(split-with-capture s re)))
- (perl-split s re 0))
([s re limit]
(if (= s " ")
;; TBD: I don't think this behavior is implemented yet.
(perl-split-on-space s limit)
- (split-with-capture s re limit)))
+ (split-with-capture s re limit))))
(let [FIELDS (perl-split RECORD #"PATTERN")]
;; ...

0 comments on commit 85f7872

Please sign in to comment.
Something went wrong with that request. Please try again.