- (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)))