kiss-lang/kiss-vscode
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

[aoc] silence more of the tests

Browse Source
This commit is contained in:
Nat Quayle Nelson
2021-04-28 19:54:34 -06:00
parent fcf422386d
commit 14b46091bc
2 changed files with 5 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
projects/aoc/src/year2020/BootCodeFixDSL.kiss
View File

@@ -17,22 +17,19 @@
(stream.dropWhitespace)
`(cond
((or self.forked (instructionsTested.exists self.instructionPointer))
(print "can't fork again")
(,instSymbol (,op 0 ,arg) self))
(true
(dictSet instructionsTested self.instructionPointer true)
(self.setBreakPoint)
(self.fork [
(lambda [:Dynamic self]
(print self.accumulator)
(when ,(ReaderExp.Symbol (Std.string (= inst "nop")))
(print (set self.forked true))
(set self.forked true)
(set self.forkedAt self.instructionPointer))
(jmp (,op 0 ,arg) self))
(lambda [:Dynamic self]
(print self.accumulator)
(when ,(ReaderExp.Symbol (Std.string (= inst "jmp")))
(print (set self.forked true))
(set self.forked true)
(set self.forkedAt self.instructionPointer))
(nop (,op 0 ,arg) self))
])))))