mirror of
https://github.com/open-goal/jak-project
synced 2026-09-02 18:12:50 -04:00
[decomp] Split condition and body of until after building expressions (#768)
* improve until decomp * fix tests
This commit is contained in:
+6
-9
@@ -356,15 +356,12 @@
|
||||
(let ((end-of-append (&-> (the-as (pointer uint8) append-str) 3)))
|
||||
(let ((location-of-char (string-skip-to-char (-> append-str data) char)))
|
||||
(when (= (-> location-of-char 0) char)
|
||||
(until (begin
|
||||
(set! end-of-append location-of-char)
|
||||
(set!
|
||||
location-of-char
|
||||
(string-skip-to-char (&-> location-of-char 1) char)
|
||||
)
|
||||
(!= (-> location-of-char 0) char)
|
||||
)
|
||||
(empty)
|
||||
(until (!= (-> location-of-char 0) char)
|
||||
(set! end-of-append location-of-char)
|
||||
(set!
|
||||
location-of-char
|
||||
(string-skip-to-char (&-> location-of-char 1) char)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
Reference in New Issue
Block a user