>= and <= do not work with strings

[FemtoEmacs]

The > and < predicates work for string, but <= and >= don't. As a consequence, string>=? and string<=? that are defined in aliases.scm don't work correctly.

; _
; |_ _ _ |_ _ | . _ _
; | (-||||()|__|)|)
;-------------------|--------------------------

(> "a" "b")

f

(< "a" "b")

t

(>= "a" "b")
type error: =: expected number, got "a"

0 (>= "a" "b")

(load "aliases.scm")

fn("9000r2|e0|}32}T2x;" [div] mod)

(string>=? "a" "a")
type error: =: expected number, got "a"

0 (>= #0="a" #0#)

(string<=? "a" "a")
type error: =: expected number, got "a"

0 (<= #0="a" #0#)