(getBuiltInFont gui-environment)))
(define-method (get-font (gui-environment <gui-environment>) filename)
- (let ((getFont (get-irrlicht-proc "getFont" gui-environment)))
- (getFont gui-environment filename)))
+ (let ((getFont (get-irrlicht-proc "getFont" gui-environment))
+ (font (getFont gui-environment filename)))
+ (if (null-object? font)
+ (error "In procedure get-font: Font unavailable")
+ font)))
(define-method (get-skin (gui-environment <gui-environment>))
(let ((getSkin (get-irrlicht-proc "getSkin" gui-environment)))