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

Use unsafe operations in `sort'. It has been running in safe mode for a

Browse Source 
while with no errors reported, and this change is done now when there's
time before the next release.

svn: r17985
This commit is contained in:
Eli Barzilay 2010-02-05 03:22:17 +00:00
parent 2368290cdb
commit 536d0266df
1 changed files with 19 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
collects/scheme/private/sort.ss
View File

@ -24,16 +24,16 @@ doing these checks.
|# |#
;; This code works with unsafe operations, but don't use it for a while to ;; This code works with unsafe operations, if there are problems, the commented
;; catch potential problems. ;; chunk of code below can be used to run it in safe mode.
;; (#%require (rename '#%unsafe i+ unsafe-fx+) (#%require (rename '#%unsafe i+ unsafe-fx+)
;; (rename '#%unsafe i- unsafe-fx-) (rename '#%unsafe i- unsafe-fx-)
;; (rename '#%unsafe i= unsafe-fx=) (rename '#%unsafe i= unsafe-fx=)
;; (rename '#%unsafe i< unsafe-fx<) (rename '#%unsafe i< unsafe-fx<)
;; (rename '#%unsafe i<= unsafe-fx<=) (rename '#%unsafe i<= unsafe-fx<=)
;; (rename '#%unsafe i>> unsafe-fxrshift) (rename '#%unsafe i>> unsafe-fxrshift)
;; (rename '#%unsafe vref unsafe-vector-ref) (rename '#%unsafe vref unsafe-vector-ref)
;; (rename '#%unsafe vset! unsafe-vector-set!)) (rename '#%unsafe vset! unsafe-vector-set!))
(define sort (let () (define sort (let ()
@ -42,14 +42,15 @@ doing these checks.
[(dr (foo . pattern) template) [(dr (foo . pattern) template)
(define-syntax foo (syntax-rules () [(_ . pattern) template]))])) (define-syntax foo (syntax-rules () [(_ . pattern) template]))]))
(define-syntax-rule (i+ x y) (+ x y)) ;; Use this to make it safe:
(define-syntax-rule (i- x y) (- x y)) ;; (define-syntax-rule (i+ x y) (+ x y))
(define-syntax-rule (i= x y) (= x y)) ;; (define-syntax-rule (i- x y) (- x y))
(define-syntax-rule (i< x y) (< x y)) ;; (define-syntax-rule (i= x y) (= x y))
(define-syntax-rule (i<= x y) (<= x y)) ;; (define-syntax-rule (i< x y) (< x y))
(define-syntax-rule (i>> x y) (arithmetic-shift x (- y))) ;; (define-syntax-rule (i<= x y) (<= x y))
(define-syntax-rule (vref v i) (vector-ref v i)) ;; (define-syntax-rule (i>> x y) (arithmetic-shift x (- y)))
(define-syntax-rule (vset! v i x) (vector-set! v i x)) ;; (define-syntax-rule (vref v i) (vector-ref v i))
;; (define-syntax-rule (vset! v i x) (vector-set! v i x))
(define-syntax-rule (sort-internal-body v *<? n has-getkey? getkey) (define-syntax-rule (sort-internal-body v *<? n has-getkey? getkey)
(let* ([n/2- (i>> n 1)] [n/2+ (i- n n/2-)]) (let* ([n/2- (i>> n 1)] [n/2+ (i- n n/2-)])