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

...

Browse Source 
original commit: 6d4754e937311486aef7431b54bb6df74368493e
This commit is contained in:
Robby Findler 1999-03-28 16:44:54 +00:00
parent 716c62ae54
commit 8e29b77aaf
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/framework/scheme.ss
View File

@ -396,10 +396,7 @@
(unless (= amt (car curr-offset)) (unless (= amt (car curr-offset))
(delete pos-start (cdr curr-offset)) (delete pos-start (cdr curr-offset))
(insert (insert
(string-append (make-string amt #\space)
(make-string (quotient amt tab-size) #\tab)
(make-string (remainder amt tab-size)
#\space))
pos-start))))] pos-start))))]
[id-walker [id-walker
(lambda (string) (lambda (string)