<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <meta content="text/html;charset=UTF-8" http-equiv="Content-Type"> </head> <body alink="#ee0000" bgcolor="#ffffff" link="#0000ee" text="#ffffff" vlink="#551a8b"> I was attempting to wrapper up get and write-resource from the mred.ss library, for use specifically on the windows registry when I came across the following anomaly. I can get correct values from the registry, but when I write a value to the registry, write-resource reports #t, meaning a successful write, but a subsequent get shows the value unchanged. These findings are consistent with what I see in regedit.exe. I was running as an administrator, under XP Pro SP2. I also tried the code outside the module context under Pretty-Big with the same results. Below find the code and results. -------------------BEGIN DEFINITIONS------------------- (module registry mzscheme (provide get-registry put-registry) (require (only (lib "mred.ss" "mred") get-resource write-resource)) ;;; ;;; Define API ;;; (define get-registry #f) (define put-registry #f) (let () (set! get-registry (lambda (section entry) (let ([b (box "")]) (get-resource section entry b) (unbox b)))) (set! put-registry (lambda (section entry value) (write-resource section entry value))) ) ) #| <test-suite> |# (require registry) (get-registry "HKEY_CURRENT_USER" "Environment\\$CVSROOT") (put-registry "HKEY_CURRENT_USER" "Environment\\$CVSROOT" "C:\\cvsroot") (get-registry "HKEY_CURRENT_USER" "Environment\\$CVSROOT") --------------------END DEFINITIONS----------------------- --------------------BEGIN OUTPUT--------------------------- Welcome to DrScheme, version 369.8-svn2mar2007 [3m]. Language: Pretty Big (includes MrEd and Advanced Student). "v:/cvsroot" #t "v:/cvsroot" > --------------------END OUTPUT------------------------------ <pre class="moz-signature" cols="72">Is this a known problem? Thanks, --kyle Kyle Smith airfoil at bellsouth dot net schemekeys.blogspot.com </pre> </body> </html>