Fix syntax errors in ms-drives.r
Fix syntax errors in ms-drives.r

giuliolunati/ren-c,kealist/ren-c,rgchris/ren-c,kealist/ren-c,giuliolunati/ren-c,draegtun/ren-c,giuliolunati/ren-c,codebybrett/ren-c,rgchris/ren-c,kealist/ren-c,kealist/ren-c,draegtun/ren-c,codebybrett/ren-c,codebybrett/ren-c,giuliolunati/ren-c,rgchris/ren-c,hostilefork/rebol,draegtun/ren-c,kealist/ren-c,codebybrett/ren-c,hostilefork/rebol,hostilefork/rebol,hostilefork/rebol,draegtun/ren-c,rgchris/ren-c,draegtun/ren-c,giuliolunati/ren-c,codebybrett/ren-c,hostilefork/rebol,rgchris/ren-c
REBOL []

msvcrt: make library! %msvcrt.dll
getdrives: make-routine msvcrt "_getdrives" compose/deep [
    return: [uint32]
]

maps: getdrives
i: 0
while [i < 26] [
    unless zero? maps and* shift 1 i [
        print unspaced [to char! (to integer! #"A") + i ":"]
    ]
    ++ i
]
close msvcrt

REBOL []

msvcrt: make library! %msvcrt.dll
getdrives: make routine! compose/deep [
    [return: [uint32]]
    (msvcrt) "_getdrives"
]

maps: getdrives
i: 0
while [i < 26] [
    unless zero? maps and* shift 1 i [
        print rejoin [to char! (to integer! #"A") + i ":"]
    ]
    ++ i
]
close msvcrt
