suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

.

Browse Source 
original commit: 2ce1a0ca3b39226e74388b36e3e20e14b5bb7d30
This commit is contained in:
Matthew Flatt 2003-04-21 13:26:48 +00:00
parent ee31a373b7
commit 80e3f7d7d7
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mred/mred.ss
View File

@ -2058,7 +2058,7 @@
(define/public (delete i)
(as-entry
(lambda ()
(set! tabs (let loop ([pos 0][l tabs])
(set! tabs (let loop ([pos 0][tabs tabs])
(if (= i pos)
(cdr tabs)
(cons (car tabs) (loop (add1 pos) (cdr tabs))))))