Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: d378c23e0a
Fetching contributors…

Cannot retrieve contributors at this time

14 lines (11 sloc) 0.344 kb
module: turboblog
author: turbo24prg
define method add-category (blog :: <blog>, category :: <category>)
=> (blog :: <blog>);
blog.categories := add-new!(blog.categories, category, test: \=);
blog;
end;
define method \= (category1 :: <category>, category2 :: <category>)
=> (equal? :: <boolean>);
category1.term = category2.term
end;
Jump to Line
Something went wrong with that request. Please try again.