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

fixed hash-bang bug

Browse Source 
svn: r1016
This commit is contained in:
Robby Findler 2005-10-07 17:59:57 +00:00
parent 368b9d3382
commit a596d06517
2 changed files with 29 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
collects/drscheme/private/unit.ss
View File

@ -16,6 +16,7 @@ module browser threading seems wrong.
(lib "file.ss")
(lib "etc.ss")
(lib "list.ss")
(lib "port.ss")
(lib "string-constant.ss" "string-constants")
(lib "framework.ss" "framework")
(lib "name-message.ss" "mrlib")
@ -1918,13 +1919,20 @@ module browser threading seems wrong.
(send definitions-text paragraph-start-position 1)
0)])
(send definitions-text split-snip start)
(let ([prt (open-input-text-editor definitions-text start)])
(port-count-lines! prt)
(send interactions-text evaluate-from-port
prt
#t
(λ ()
(send interactions-text clear-undos)))))))
(let ([text-port (open-input-text-editor definitions-text start)])
(port-count-lines! text-port)
(let* ([line (send definitions-text position-paragraph start)]
[column (- start (send definitions-text paragraph-start-position line))]
[relocated-port (relocate-input-port text-port
(+ line 1)
column
(+ start 1))])
(port-count-lines! relocated-port)
(send interactions-text evaluate-from-port
relocated-port
#t
(λ ()
(send interactions-text clear-undos))))))))
(inherit revert save)
(define/private (check-if-save-file-up-to-date)

15
collects/tests/drscheme/repl-test.ss
View File

@ -266,6 +266,18 @@ There shouldn't be any error (but add in a bug that triggers one to be sure!)
#f
void
void)
(make-test "#!/bin/sh\nxx"
"reference to undefined identifier: xx"
"reference to undefined identifier: xx"
#t
(cons (make-loc 1 0 10) (make-loc 1 2 12))
#f
#f
#f
void
void)
#|
(make-test (list "#!\n"
'("Special" "Insert XML Box")
@ -341,6 +353,7 @@ There shouldn't be any error (but add in a bug that triggers one to be sure!)
|#
;; eval tests
(make-test " (eval '(values 1 2))"
"1\n2"
"1\n2"
@ -1032,6 +1045,6 @@ There shouldn't be any error (but add in a bug that triggers one to be sure!)
;(set-language-level! (list "PLT" "Graphical (MrEd)")) (kill-tests)
(run-test-in-language-level #t)
(run-test-in-language-level #f)
(run-test-in-language-level #t)
))