From 592e802ad0c88a37529f19a60f995f140c7eba33 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 24 Dec 2012 06:38:09 -0700 Subject: [PATCH] add (system-type 'word) Returns 32 or 64 to indicate whether Racket is running as a 32-bit program or a 64-bit program. original commit: 4a57db44489055115ecf1811b116c5b3f2e3b3e5 --- collects/typed-racket/base-env/base-env.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/typed-racket/base-env/base-env.rkt b/collects/typed-racket/base-env/base-env.rkt index 626b7d78..85b7be72 100644 --- a/collects/typed-racket/base-env/base-env.rkt +++ b/collects/typed-racket/base-env/base-env.rkt @@ -1146,7 +1146,8 @@ (-> (-val 'gc) (Un (-val 'cgc) (-val '3m))) (-> (-val 'link) (Un (-val 'static) (-val 'shared) (-val 'dll) (-val 'framework))) (-> (-val 'so-suffix) -Bytes) - (-> (-val 'machine) -String))] + (-> (-val 'machine) -String) + (-> (-val 'word) -PosInt))] [system-language+country (-> -String)] [system-library-subpath (->opt [(Un (-val #f) (-val 'cgc) (-val '3m))] -Path)]