RosettaCodeData/Task/Conditional-structures/Slope/conditional-structures-2.slope

(define my-file (file-open-read "my-file.txt"))
(if my-file (write (read-all my-file)) (! "Could not open file"))