mbk/guile-sokoban
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

don't do redundant restarts

Browse source
This commit is contained in:
mehbark 2025-04-28 18:02:41 -04:00
parent 8d7babec4d
commit ff84559e33
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
engine.scm
View file

@ -64,7 +64,8 @@
(cond
[(undo? c) (undo!)]
;; that's right, you can undo your restart
[(restart? c) (push! init)]
;; but don't if you're already at the beginning ofc
[(restart? c) (unless (equal? init (car state-stack)) (push! init))]
[(c->udlr c) => (lambda (c) (push! (step (car state-stack) c)))]
[else (format #t "what does ~a even mean\r\n" c)])